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1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


This is the only diagnostic program provided for testing the UDA-50 
Unibus Disk Controlier and the disk drives connected to it. There are 
four tests within this diagnostic: 


Test # 1 = unibus Addressing Test. Runs the UDA-50 ROM resident 
mes me mee then further tests the Unibus address 
interface. 


Test # 2 = Disk Resident Diagnostic Test. Executes the diagnostics in 
each disk drive. 


Test # 3 = Disk Function Test. Functionally tests each disk drive to 
ensure the disk can seek, read, write and format. 


Test # 4 = Disk Exerciser. Exercises the disk drives in a manner 
similar to normal operating systems. This test should be 
meee to gain confidence in the reliability of the disk 

rive. 


This program is designed to handle all future disk drives that are 
attached to the UDA-20 without modifying or ay way te This is ‘ 
possible because the disk drives are programmed to tell this diagnostic 
about all their characteristics that make them different from other 
drives, such as number of cylinders, sectors per cylinder, etc. 


Two other PDP-11 diagnostic programs are provided for the UDA-50 disk 
subsystem: 


CZUDEBO - UDA-50 Disk Drive Fomatter. 


DEC/X11 = Unibus Exerciser can be run on the UDA-50 using the UDA-50 
module DUBBO. 


This diagnostic has been written for use with the Otoqneette Runt ime 
Services Software (Supervisor). These services provide the interface 
to the operator and to the software environment. For a complete 
description of the Runtime Services, refer to the XXDP+ User's Manual. 
There is a brief description of the Runtime Services in section 2 of 
this document. : 


SEQ 0003 
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1.2 SYSTEM REQUIREMENTS 


This program was designed using the PDP-11 Diagnostic Runtime Services 
revision C. Run time environments are determined by the Runtime 
Services and may change as new versions of the Services are developed. 
This program requires the following: 


PDP-11 Unibus processor 

28K words of memory (minimum) 

Console terminal ae 

XXDP+ gone containing this program and the ZUDDBO0.PAK 
ata e 

One or more UDA-50 subsystems 

Line clock = either Type L or P 


The Line clock is used for all timed loops in the program. The 
diagnostic will run on a system with no clock but wil Sang SOeeae 
an event for which the program is waiting does not happen (i.e., a 
time-out error message will not result). 


This diagnostic program requires that the data file ZUDDBO.PAK be on 
ol ae system device. This data file is ordered under the name 


2.0 OPERATING INSTRUCTIONS 


This section contains a brief description of the Runtime Services. For 
detailed information, refer to the XXDP+ User's Manual (CHQUS). 


2.1 COMMANDS 


There are eleven legal commands for the Diagnostic Runtime Services 
(Supervisor). This section lists the commands and gives a very brief 
description of them. The XXDP+ User's Manual has more details. 


COMMAND EFFECT 

START Start the diagnostic from an initial state 

RESTART Start the diagnostic without peeled gt 

CONTINUE Continue at test that was interrupted (after “C) 

PROCEED Continue from an error halt 

EXIT Return to XXDP+ Monitor (XXDP+ OPERATION ONLY!) 

ADD Activate a unit for testing (all units are 
considered to be active at start time 

DROP Deactivate a unit ‘ ‘ 

PRINT Print statistical information (see section 4.0) 

DISPLAY Type a List of all device information. 

FLAGS Type the state of all flags (see section 2.3) 

ZFLAGS Clear ail flags (see section 2.3) 


SEQ 0004 
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A command can be recognized by the first three characters. So you 
may, for example, type ‘‘STA’’ instead of ‘START’. 


2.2 SWITCHES 


There are several switches which are used to oe supervisor 
operation. These switches are appended to the legal commands. All of 
the legal switches are tabulated below with a brief description of 
pect, ie the descriptions below, a decimal number is designated by 


SWITCH EFFECT 
/TESTS:LIST Execute only those tests specified in 
the List. ist is a string of test 
numbers, for example - /TESTS:1:5:7-10. 
This list will cause tests 1,5,7,8,9,10 to 
be run. ALL other tests will not be run. 
/PASS :DDDDD Execute DDDDD passes (DDDDD = 1 to 64000) 
/FLAGS:FLGS Set specified flags. Flags are described 
in section 2.3. 
/EOP:DDDDD Report end of pass message after ever 
DDDDD passes rs DDDD = 1 to 64000) 
/UNITS:LIST TEST/ADD/DROP only those units specified 
in the list. List example = /UNITS:0:5:10-12 
use units 0,5,10,11,12 (unit numbers = 0-63). 


Example of switch usage: 
START/TESTS:1=5/PASS: 1000/E0P: 100 


The effect of this command will be: 1) tests 1 through 5 will be 

executed, 2) all units will tested 1000 times and 3) the end of pass 

messages will be printed after each 100 passes only. A switch can be 
recognized by the first three characters. You may, for example, type 
/TES:1-5"' instead of ‘*/TESTS:1-5"". 


Below is a table that specifies which switches can be used by each 
command. 


TESTS PASS FLAGS EOP UNITS 


START x x xX Xx x 
RESTART X x x x x 
CONT INUE x x x 

—- x 
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2.3 FLAGS 


Flags are used to set up certain operational parameters such as 
looping on error. All flags are cleared at startup and remain cleared 
until explicitly set using the flags switch. Flags are also cleared 
after a START or RESTART command unless set using the flag switch. 

The ZFLAGS command may also be used to clear all flags. With the 
exception of the START, the RESTART and ZFLAGS commands, no commands 
affect the state of the flags; they remain set or cleared as 
specified by the last flag switch. 


FLAG EFFECT 

HOE Halt on error = control is returned to 
runtime services command mode 

LOE Loop on error 

IER* Inhibit all error reports 

IBE* Inhibit all error reports except 
first level (first level contains | 
error type, number, PC, test and unit) 

IXE* Inhibit extended error reports (those 
called by PRINTX macro's) | 

PRI Direct messages to Line printer 

PNT Print test number as test executes 

BOE *“BELL"’ on error . 

UAM Unattended mode (no manual intervention) 

ISR Inhibit statistical reports | 

IDU Inhibit program dropping of units 

LOT Loop on test 


*Error messages are described in section 3.1 


See the XXDP+ User’s Manual for more details on flags. You may 
specify more than one flag with the FLAG switch. For example, to 
cause the program to loop on error, inhibit error reports and type a 
"BELL"’ on error, you may use the following string: 


/FLAGS :LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 


When a diagnostic is STARTed, the Runtime Services will prompt the 
user for hardware information by typing “CHANGE HW (L) 2°" . When you 
answer this question with a ‘'Y'’, the Runtime Services will ask for the 
number of units (in decimal). You will then be asked the following 
questions for each unit. When you answer this question with an ‘N’”, 
the Runtime Services will use the answers built into the program by 
the SETUP wnt ity (see chapter 6 of the XXDP+ User's Manual). If you 
have never run the SETUP utility on this program file, the default 
values listed below (just before the question mark) will be used. 


SEQ 0006 
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UNIBUS ADDRESS OF UDA (0) 172150 ? 


Answer with the address of the UDAIP register of one UDA as 
addressed by the processor with memory management turned off 
(7585; even 16-bit address in the range of 160000 to 


VECTOR (0) 154 ? 


Answer with the interrupt vector address of the UDA. A vector 
address in tne range of 4 to 774 may be specified. The UDA 
does not have a vector ‘hard wired’’ to it, so any vector not 
being used by this program and XXDP+ may be used. 


BR LEVEL (D) 5 ? 


Answer with the interrupt priority used by the UDA. Levels 4 
to 7 are accepted. This level must match the level “‘hard 
wired’’ in the UDA by the priority plug. 


UNIBUS BURST RATE (D) 63 ? 


The UDA allows the ability to control the maximum number of 
words transferred across the UNIBUS each time the UDA becomes 
master. The default answer of 63 will allow for the fastest 
execution of this diagnostic program. You may answer with the 
value your operating system uses or use zero which will tell 
the UDA to supply a value that should work on any system. A 
decimal number in the range of 0 to 63 may be specified and 
all values should work on any system. A larger value will 
allow for a faster running program. The value will be passed 
directly to the UDA during initialization. 


DRIVE NUMBER (D) 0 ? 


Answer with the drive number of the drive you wish to test. 
This is the number which appears on the “unit plug’ on the | 
front of the disk drive. On a multi-unit drive, each sub-unit 
number on the drive must be tested as a separate unit to 
completely test the drive. A maximum of eight logical d-ives 
may be tested on one UDA at a time (UDA configuration Limit). 


EXERCISE ON CUSTOMER DATA AREA IN TEST 4 (L) N ? 


Answer 'N'’ to have test 4 (drive exerciser) run on the 
diagnostic area of the disk. Answer ‘'Y’’ to run on the 
customer data area. A ‘'Y’’ answer will destroy any customer 
data that may be on the disk. A warning message will be 
printed before testing begins if this question is 


answered ‘‘y’’. 
CUSTOMER DATA WILL BE DESTROYED ON: 
UNIT UDA AT DRIVE 


XX XXKXKK XXX 


SEQ 0007 
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Unless the diagnostic is being run in unattended mode (i.e., 


START/FLAG:UAM command), a confirmation will also be required 


as follows: 
ARE YOU SURE CUSTOMER DATA CAN BE DESTROYED (L) ? 


If the above question is answered 'N’’, the entire diagnostic 
will stop and the Runtime Services thee will be displayed. 
No default answer is provided for this question. 


2.5 SOFTWARE QUESTIONS 


After you have answered the hardware questions or after a RESTART or 
CONTINUE command, the Runtime Services will ask for software 
parameters. You will be prompted by ‘‘CHANGE SW (L) ?'' If you wish to 
change any parameters, answer by typing ‘‘Y’’. The software questions 
and the default values are described in the next paragraphs. 


ENTER MANUAL INTERVENTION MODE FOR SPECIAL DIAGNOSIS (L) N ? 


Tests 2 and 4 have manual intervention modes which allow — 
additional parameters to be input to alter the normal testin 
of a disk drive. This question should normally be answered 
when this diagnostic is first run. Then, depending on the 
errors detected, it may be desirable to change this answer to 
“"y' and alter the testing to further isolate the problem. If 
this question is answered ‘'Y'’, and the UAM (unattended mode 
operation) flag is set, tests 2 and 4 will print a warning 


message that the mode cannot be entered and will proceed as if 


answered 'N’’. See the description of the individual tests in 
section 5 for more information. 


REMAINING SOFTWARE QUESTIONS APPLY TO TEST 4 ONLY 


This informational message is printed to describe the use of 


the remaining questions. If test 4 is not being run, a 
“CONTROL 2°’ can be typed to bypass them. 


ERROR LIMIT (D) 32 ? 
Enter the number of hard errors allowed before a drive is 
dropped from exercise by test #4. A number in the range of 1 
to 55535 will be accepted. 


READ TRANSFER LIMIT IN MEGABYTES = 0 FOR NO LIMIT (D) 0 ? 


When the specified number of bytes have been read from a drive 


by test #4, the drive will be dropped from testing. When all 
drives are dropped, an end of pass will be indicated and the 
selected tests will be run again. This is the method used to 
determine how long test #4 is to run. Answer with a zero to 
prevent test from ending. The only other way test #4 can end 
is to have all drives erenped because the error Limit on each 
is exceeded. Of course, the operator can always stop test #4 
by typing a control-C. 


SEQ 0008 
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SUPPRESS PRINTING SOFT ERRORS (L) Y? 


When test #4 needs to perform retries, soft error reports will 
be printed to give as much information as possible. These 
actions are considered normal operation and are not error 
conditions until the retries fail. When the test is being run 
only to see how reliable the drive performs, this question 
should be answered ‘'Y'’ so they are not confused with hard 
errors. The number of these soft errors is always reported ir 
the + ites report. Answer ‘'N’’ to see all the soft error 
reports. 


DO INITIAL WRITE ON START (L) Y ? 


If test #4 is to do data compares, the drive will need to be 
written with data patterns readable by the program. 


If the diagnostic area is selected for testing, the ‘ 
initial write is always performed (regardless of how this 
question is answered). 


If the customer data area is selected for testing, the initial 
write will be performed when all of the following are true: 


1. This question is answered ‘‘Y’’. 


2. This is the first time test #4 is being run after a 
START command. 


3. The disk is write enabled. 
egal this question ‘'N’’ when testing on the customer data 
area will normally result in data comparison errors if the 
_— vs not previously written by this diagnostic or the 
ormatter. 


a that write checks are not performed during the initial 
write. 


ENABLE ERROR iOG (L) N ? 


A *'y"* answer will cause error messages in test #4 to be stored in a 
log buffer. Once the log buffer is full, additional error information 
is lost. The contents of the log buffer will be printed when test #4 
i 4 D is log feature is 
intended to allow the Digital Diagnosis Center (DDC) to start test #4 
then hang up from the system and let it run for some per tes of time. 
ont then PRINT and see 
the errors that have occurred (up to the Limit of the log buffer). A 
message will be printed to indicate no errors have occurred if the log 
buffer is empty. Test #4 will not be allowed to end while the error 
Log is enabled until the error log is printed. The log buffer will 
hold 30 error messages when one disk unit is being tested. The log 


is stopped and a statistical report requested. T 


DDC can call the system back later, type control-C, 


buffer will decrease in size as more units are tested. 


SEG 0009 
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2.6 EXTENDED P=TABLE DIALOGUE 


When you answer the hardware questions, you are building entries in a 
table that describes the devices under test. The simplest | to 
build this table is to answer all questions for each unit to be 
tested. If you have a multiplexed device such as a mass storage 
controller with several drives or a communication device with several 
Lines, this becomes tedious since most of the answers are repetitious. 


To illustrate a more efficient method, suppose you are testing a 
fictional device, the XY11. Suppose this device consists of a control 
module with eight units (sub-devices) attached to it. These units are 
described by the octal numbers 0 through 7. There is one hardware 
parameter that can vary among units called the Q-factor. This 
Q-factor may be 0 or 1. Below is a simple way to build a table for 
one XY11 with eight units. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. O<CR> 
Q-FACTOR (0) 0? 1<CR> 


UNIT 2 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 1<CR> 
Q-FACTOR (0) 1? O<CR> 


SUB-DEVICE # (0) ? 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
UB-DEVICE # (0) ? 6<CR> 


| 

| 

j 

| 

| 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
2<CR> 

2 de 

| Q-FACTOR (0) 0? 1<CR> 

| 

| 


SEQ 0010 
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UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB=DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


Notic2 that the default value for the Q-factor changes when a _ 
ne response is given. Be careful when specifying multiple 
units! 


As you can see from the above example, the hardware parameters do not 
wer hha from unit to unit. The procedure shown is not very 
efficient. 


The Runtime Services can take multiple unit specifications however. 
Let’s build the same table using the multiple specification feature. 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ?_ ‘60090<CR> 
SUB=DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?  2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


SUB=DEVICE # (0) ? 
Q-FACTOR (0) 0? 1<CR> 


As you can see in the above dialogue, the runtime services will build 
as a entries as it can with the information given in any one pass 
through the questions. In the first pass, two entries are built since 
two sub-devices and q-factors were specified. The Services assume 
that the CSR address is 160000 for both since it was specified only 
once. In the second pass, four entries were built. This is because 
four sub-devices were specified. The ‘'="" construct tells the Runtime 
Services to increment the data from the first number to the second. 
In this case, sub-devices 2, 3, 4 and 5 were specified. (If the 
sub-device were specified by addresses, the increment would be by 2 
since addresses must be on an even boundary.) The CSR addresses and 
Q-factors for the four entries are assumed to be 160000 and 0 : 
respectively since enay were only specified once. The last two units 
are specified in the third pass. 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
? 6,7<CR> 
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ee whole process could have been accomplished in one pass as shown 
elow. 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 

SUB=DEVICE # (0) ?_ 0=7<CR> 

Q-FACTOR (0) 0? 0,1,0...,1,1<CR> 
As you can see from this example, null replies (commas enclosing a 
null field) tell the Runtime Services to repeat the last reply. 


2.7 QUICK START-UP PROCEDURE 


Yo start-up this program: \ 
Boot XXDP+ 


2. Give the date and answer the LSI and SOHZ (if there 
is a clock) questions 


3. Type ‘R ZUDCBO"’ 
4. Type ‘START’ 
5. Answer the ‘‘CHANGE HW’’ question with ‘‘Y’’ 
6. Answer all the hardware questions 
7. Answer the “‘CHANGE SwW’’ question with ‘'N’’ 
When you follow this procedure you will be using only the defaults for 


flags and software parameters. These defaults are described in 
sections 2.3 and 2.5. 


— 
oe 


SEQ 0012 
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Sample of terminal dialogue to test two disks on one UDA-50: 
DR>STA/FLA:PNT 
CHANGE HW (L) ? Y 
# UNITS (D) ? 2 
UNIT 0 
UNIBUS eorers OF UDA (0) 172i150 ? 
VECTOR (0) 154 ? 
BR LEVEL (D) 5 ? 
UNIBUS BURST RATE ¥ ? 
DRIVE NUMBER (D) 0,1 
EXERCISE ON CUSTOMER DATA AREA IN TEST 4 (L) N ? 


CHANGE SW (L) ?.N 


TST: 001 
TESTING INTERRUPT ABILITY OF UDA AT ADR 172150 VEC 154...COMPLETED 
TST: 002 
TST: 003 
TST: 004 


UNIT 0 UDA AT 172150 DRIVE 0 RUNTIME 0:02:43 
INITIAL WRITE COMPLETE 


UNIT 1 UDA AT 172150 DRIVE 1 RUNTIME 0:05:31 
INITIAL WRITE COMPLETE 


TEST 4 IN PROGRESS. RUNTIME 0:15:00 


UNIT DRIVE SERIAL=?'UMBER 943 MBYTES MBYTES HARD SOFT ECC 
X1000 READ WRITTEN ERRORS ERRORS 

0 0 3 9 6 0 0 0 

1 1 1 3 8 6 0 0 0 


SEQ 0013 
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Sample of terminal dialogue going through ere questions to 
specify transfer Limit (one disk being tested) 


DR>STA/FLA:PNT 
CHANGE HW (L) ?.N 
CHANGE SW (L) ? Y 
ENTER MANUAL INTERVENTION MODE FOR SPECIAL DIAGNOSIS (L) N ? 
REMAINING SOFTWARE QUESTIONS APPLY TO TEST 4 ONLY 
ERROR LIMIT (D) 32 ? 
READ TRANSFER LIMIT IN shaone ta) - AA FOR NO LIMIT (D) 07? 5 
SUPPRESS PRINTING SOFT at ie 
DO INITIAL WRITE ” os T (Ld a 
ENABLE ERROR LOG (L) 
TST: 001 
TESTING INTERRUPT ABILITY OF UDA AT ADR 172150 VEC 154...COMPLETED 
TST: 002 
TST: 003 
TST: 004 


UNIT 0 UDA AT 172150 DRIVE 0 RUNTIME 0:02:43 
INI ETAL WRITE COMPLETE 


UNIT 0 UDA AT 172150 DRIVE 0 RUNTIME 0:09:41 
REACHED TRANSFER LIMIT = TESTING STOPPED 


TEST 4 IN PROGRESS. | RUNTIME 0:09:41 
UNIT DRIVE SERIAL-NUMBER SEEKS MBYTES MBYTES HARD SOFT €CC 
X1000 READ WRITTEN ERRORS ERRORS 

0 0 2 : 0 0 
cZuDcB EOP 
naa 0 CUMULATIVE ERRORS 
TESTING INTERRUPT ABILITY OF UDA AT ADR 172150 VEC 154...COMPLETED 
TST: 002 


a 


SEQ 0014 
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3.0 ERROR INFORMATION 


3.1 TYPES OF ERROR MESSAGES 


There are three levels of error messages that may be issued by a 
diagnostic: general, basic and extended. General error messages are 
always printed unless the “IER"' flag is set (section 2.3). The general 
error message is of the form: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
error message 


where: NAME = diagnostic name 
TYPE = error type (SYS FTL ERR, DEV FTL ERR, HRD ERR or SFT ERR) 
NUMBER = error number E 
UNIT NUMBER = 0 - N (N is Last unit in PTABLE) 
TST NUMBER = test and subtest where error occurred 
PC:XXXXXX = address of error message call 


System fatal errors (SYS FTL ERR) are used to report errors that are 
fatal to the entire diagnostic program. The diagnostic stops and the 
Runtime Services prompt is printed. 


Device fatal errors (DVC FTL ERR) are used to report errors that are 
fatal to the device (may be either a UDA-50 or disk drive). Testing 
stops on that device for the remainder of the current test. 


Hard errors (HRD ERR) reports most of the errors detected. Testing 
will normally continue after the printing of the error. 


Soft errors (SFT ERR) are used only in test 4. They present 

information about an error for which recovery will be attempted. These 
are printed only if the SUPPRESS PRINTING SOFT ERRORS software penetsen 
is answered ‘WN’ and are used only to provide a greater detail o 
information. ea the error recovery attempt, several soft errors 

may be printed. Unless the soft errors are followed by a hard error 
message, the error condition was corrected and testing proceeds. 


Basic error messages are messages that contain some additional 
information about the error. These are always printed unless the 
"IER" or “‘IBE"’ flags are set (section 2.3). These messages are 
printed after the associated general message. 


Extended error messages contain supplementary error information such 
as register contents or good/bad data. These are always printed 
unless the “‘IER*’, “‘IBE*’ or “‘IXE"’ flags are set (section 2.3). These 
messages are printed after the associated general error message and 
any associated basic error messages. 


The general and basic error messages from this diagnostic are always 


one Line each, The basic message defines what program detected the 
error, ‘the drive being tested and the time of the error. 


[a 
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The PDP=11 program that is loaded into memory when you give the 
""R ZUDCBO"’ command to the XXDP+ monitor is + a small part of this 
diagnostic. A data file called ZUDDBO.PAK on the system load device 
(the same device from which the ‘"'R’’ command read the PDP-11 program) 
contains four programs which are read from the file and loaded into 
the UDA~50 for execution. These programs are called ‘diagnostic 
machine’’ or DM prosrens. The “diagnostic machine" is the facility in 
the UDA-50 which executes a PDP-11 Like pogram. The large oe ati of 
the testing is done by these four ‘diagnostic machine’ p-ograms. Once 
the PDP-11 program has loaded and started the ‘diagnostic machine’’ 
program, all it does is respond to requests from that program. These 
requests include such things as telling the ‘‘diagnostic machine’’ which 
disks on that UDA-50 are to be tested, printing an error message and 
mee bay Hay | erat one which are printed in the statistical report (see 
section 4.0). 


The basic message (the second line of every error message) will be one 
of the following: 


HOST PROGRAM UDA AT xxxxxx RUNTIME hhh:mm:ss 
The host program (PDP=11) detected the error. UDA AT xxxxx 
identifies the address of the UDA-50 being tested. It may be 
omitted if the error is not specific to one UDA-50. 

UNIBUS ADDRESSING DM PC:xxxx UDA AT xxxxxx RUNTIME hhh:mm:ss 
The ‘diagnostic machine’’ program loaded in test 1 detected the 
error. DM PC xxxx identifies the address in the ‘‘diagnostic 
machine’’ program where the error message is reported. 

DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
The “diagnostic machine’’ program loaded in test 2 detected the 
error. DM PC xxxx identifies the address in the ‘‘diagnostic 
machine’’ program where the error message is reported. DRIVE xxx 
identifies the drive number. 

DISK FUNCTIONAL DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 


The ‘‘diagnostic machine’’ program loaded in test 3 detected the 
error. 


DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 


The ‘‘diagnostic machine’’ program loaded in test 4 detected the 
error. 


Sample error message: 


HOST PROGRAM UDA AT 172150 RUNTIME 0:00:12 
UDA RESIDENT DIAGNOSTICS DETECTED FAILURE 

UDASA CONTAINS 104041 i= extended message 
REPLACE UDA MODULE M7161 / 


asic message 


CZUDC DVC FTL ERR 00021 ON UNIT 00 TST 001 SUB 003 PC: xxxxxx - generat message 
\ 





SEQ 0016 
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Informational messages are also printed by this program. They are 
usually one or two lines in length. They are rinte as extended 
messages and are always printed unless the "IER", ‘‘IBE’’ or “‘IXE 
flags are set. 


Sample informational message: 


UNIT 0 UDA_AT 172150 ORIVE 0 RUNTIME 0:02:43 
INITIAL WRITE COMPLETE 


3.2 SPECIFIC ERROR MESSAGES 


Following is a list of the error messages that may be prinved by the 
wt te grec program. In the list, some of the numbers that may vary 
with execution or program version are shown as ‘‘xxx''. These include 
program counters and runtime. Other numbers, such as unit number, 
drive number, UDA-50 address and data in registers are filled with 
sample numbers. Additional information about the error may follow the 
error message. 


3.2.1 HOST PROGRAM ERROR MESSAGES (00001 to 00999) 


00001 CZUDC SYS FTL ERR 00001 ON UNIT 00 TST yxx SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
I DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
UDA HAS MORE THAN ONE VECTOR, BR LEVEL OR BURST RATE 


When the hardware questions were answered, two units were 
selected with the same UNIBUS address but with a different 
vector, BR level or burst rate. A otagte UDA-50 can have only 
one vector, BR level or burst rate. The program is aborted and 
returns to the Runtime Services prompt so that you can change 
the hardware questions. 


00002 CZUDC SYS FTL ERR 00002 ON UNIT 00 TST xxx SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
I DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
TWO UNITS SELECT THE SAME DRIVE 


The hardware questions for two units were exactly the same. 
The program is aborted and returns to the Runtime Services 
prompt so that you can change the hardware questions. 





poate ep tall 
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00003 


00004 


00005 


00006 


00007 


CZUDC SYS FTL ERR ae Es ON UNIT 00 yh. a Se 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 

t DON'T LIKE THE ANSWERS YOU GAVE TO THE “HARDWARE QUESTIONS 

MORE THAN EIGHT DRIVES SELECTED ON THIS U 


Up to four payeseat disk drives can be tached to a UDA-50 at 
one time. A physical disk drive may be .iom one to four 
logical disk drives. Each logical disk drive is considered one 
unit to the diagnostic program. Even though more than eight 
logical disk drives can be attached to one UDA-50, the UDA-50 
only supports eight. The program is aborted and returns to the 
oooee Services prompt so that you can change the hardware 
questions. 


CZUDC SYS rt ERR 00004 Sed ae 00 TST xxx SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x 

NOT ENOUGH ROOM IN MEMORY io. TEST THE UNITS SELECTED 

PLEASE START PROGRAM OVER AND TEST FEWER UNITS AT A TIME 


This program does not Limit the number of units that can 
be tested by specifying a maximum number. What Limits 
the number is the amount of memory used to store data 

on each unit. You have exceeded the number of units 

that are testable at one time. Start program over and 
select fewer units. 


CZUDC SYS FTL ~ 00005 Bh “ahd 00 TST xxx SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x 
CHECKSUM ERROR IN DM PROGRAM. FILE 


As a DM program is read from the load media, a checksum 
is calculated. If the checksum contained in the file 
does not match what is calculated, an error reading 

the data file is declared. Restore the data file 
ZUDDB0.PAK to your load media. 


CZUDC SYS FTL ERR = apart A ~w 00 TST xxx SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x: 
TABLE INCONSISTANCY ERROR. “PLEASE RE-LOAD PROGRAM 


When the host program is started, controller tables are 
set according to the P-tables. Error 00006 will occur 

if the tables were corrupted after restarting the diag- 
nostic. Load and start your program again. 


CZUDC SYS FTL ERR + ell oh i 00 TST xxx SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x 
ERROR IN DM PROGRAM FILE. OM PROGRAM NOT FOUND 


The host program was not able to read the DM program 
from the load media properly. Restore the data file 
ZUDDBO.PAK to your load media. 


SEQ 0018 


= i 
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00008 CZUDC SYS FTL ERR 00008 ON UNIT 00 TST xxx SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
I DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
TWO UDA'S USE THE SAME VECTOR 


The hardware questions for two units specified different 
UDA~50 Unibus addresses but identical vector addresses. The 
program is aborted and returns to the Runtime Services prompt 
so tha you can change the hardware questions. 


00020 CZUDC DVC FTL ERR 00020 ON UNIT 00 TST xxx SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
MEMORY ERROR TRYING TO READ UDA REGISTERS 
a ag SELECTION SWITCHES ON UDA MODULE M7161 


OR UNIBU 
OR REPLACE UDA MODULE M7161 


A non-existant memory error occurred when the host > he 
tried to access the UDAIP and UDASA registers. The UD 

is at another address (check the UNIBUS selection switches) 
or module M7161 is broken or the UNIBUS is broken. 


00021 CZUDC DVC FTL ERR 00021 ON UNIT 00 TST 001 SUB 003 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
UDA RESIDENT DIAGNOSTICS DETECTED FAILURE 
UDASA CONTAINS 105154 
REPLACE UDA MODULE M7162 


The UDA Resident diagnostic detected a failure. The 
error is displayed in the UDASA. Here are the possible 
error values and their meaning: 


104000 - Fatal sequncer error 
104040 = D processor ALU error 
104041 = D proc ROM parity error 


105102 = D proc with no Board #2 or RAM parity error 

105105 = D proc RAM huffer error 

105152 = D proc SDI error 

105153 = D proc write mode wrap SERDES error 

105154 = D proc read mode SERDES, RSGEN, and ECC error 

106040 - U proc ALU error 

106041 = U proc Control Register error : 
106042 = U proc DFAIL/ROM parity error/Board #1 test count is wrong 
106047 = U proc Constant ROM error with D proc running SDI test 
106055 = Unexpectant trap found, aborted diagnostic 

106071 = U proc ROM error 

106072 = U proc ROM parity error 

106200 - Step 1 data error (MSB not set) 

107103 = U proc RAM per ity error 

107107 = U proc RAM buffer error 
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00022 


00023 


107115 = Board #2 test count was wrong 
112300 = Step 2 error 

122240 = NPR error 

122300 = Step 3 error 

142300 = Step 4 error 


Replace the board specified. M7161 is the Unibus interface board. 


M7162 is the SDI interface board. 


cfure DVC FTL ERR 00022 ON UNIT 00 TST oes —_ 003 PC: xxxxxx 


5 Bit bee UDA AT 172150 RUNTIME x 
STEP BIT BecreD poSbOOe REGISTER DURING INITIALIZATION 


UDASA CONTAINS 000000 
REPLACE UDA MODULE M7161 


The UDA did not respond as expected during the 

initialization sequence which communicates —— data 
in the UDASA register. A normal response from the UDA 
contains either a STEP bit or an ERROR bit defined as 


follows: 
100000) Error bit 
bit 


TOOMD 
ome 
~— 


i ( 
i ( 
i ( 
i ( 
it 11 (0040 p ea 
The expected step bit nor the error bit set within the 
expected time. 


chet DVC FTL ERR anrngs ON UNIT 00 TST a es 005 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 

UDA DID NOT CLEAR RING STRUCTURE IN HOST * MEMORY oie INITIALIZATION 

6 WORDS WERE TO BE CLEARED oe he AT ADDRESS 040644 

FIRST SEVERAL cay oA A LEARED ( TO 6): 


04065 0 
REPLACE UDA MODULE M7161 


The UDA is to clear the “= structure (a communications area 
used by the UDA to talk to the host) in host memory before 
Step 4 of initialization. If the UDA diagnostics did not 
clear memory and did not flag an error, then error message 
00023 is displs ed. The contents of each word in memory 

is set to 177777 before the test. Failure of the UDA 

to clear each word indicates a fault in the address 

interface to the Unibus. 


sc 


USER DOCUMENTATI 





| 00024 
| 
i 
00025 
00026 


00027 


CZUDCBO UDA & rion DRV DIAG MACRO V04.00 29-APR=82 17:36:04 PAGE eh SEQ 0021 


CZUDC DVC FTL ERR at ON UNIT 00 .~ a "mg 006 PC: xxxxxx 
HOST PROGRAM ny AT 1 fib RUNTI 
UDASA REGISTER DID NOT GO TO ZERO AFTER. STEP 3 WRITE OF INITIALIZATION 
PURGE/POLE DIAGNOSTICS WERE REQUESTED 
UDASA CONTENTS 004400 


For better ety” the host can test the PURGE and POLE 
mechanism of the UDA. To do so the host sets bit15 of the 
step 3 data and sends the data to the UDA. The = must 
go to zero and wait for the purge and pole. If the UDA 
never went to zero, then_error message 00024 is pod lS 
thers may have a bad M7161 module oe the UNIBUS may 

e broken. 


CZUDC DVC FTL ERR att$5,00 ON UNIT 00 i. _ _ 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 

UDA DID NOT RETURN CORRECT DATA IN UDASA REGISTER DURING INITIALIZATION 
UDASA EXPECTED 004400 
UDASA CONTAINS 004000 

REPLACE UDA MODULE M7161 


For each step of initialization, webs: data is expected 
to be displayed in the UDASA. If the UDASA does not match 
the expected data, then error message 00025 is displayed. 
Replace UDA module M7161. 


rae Ras! FTL ERR oo0es ON UNIT 00 TST i... ae 000 PC: xxxxxx 
ROGRAM UDA AT 172150 RUNTIME x 
DATA COMPARISON ERROR ounane DIAGNOSTIC “PORT LOOP TEST 


A 
RECEIVED FROM UDASA 000000 
REPLACE UDA MODULE M7161 


The UDA can be put into a mode where the UDASA acts 

as a wrap port. While the UDA is in this mode, any 
data ty J sent to the UDASA will be Siplayed in the 
UDASA within a small period of time. If the data in 
the UDASA does not match the data that was sent to the 
UDASA, then error message 00026 is displayed. Repiace 
UDA module M7161. 


CPupC DvC FTL ERR 00027 ON UNIT 00 poh ane 8 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 

UDASA REGISTER DID NOT CHANGE AFTER WRITING. TO IT 

IN PORT LOOP DIAGNOSTIC 
UDASA CONTAINS 004400 

REPLACE UDA MODULE M7161 


The UDA can be put into a mode where the UDASA acts 
as a wrap port. While the UDA is in this mode, any 
data ts sent to the UDASA will be + ~ pape in the 
UDASA within a small period of time. After the host 
program sent data to it while it was in diagnostic 
wrap mode, the UDA did not change the contents of the 
UDASA. Error message 00027 is displayed. Replace 
UDA module M7161. 
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00028 ae DVC FTL ERR ares’ a ON UNIT 00 TST 001 SUB 004 PC: xxxxxx 
T PROGRAM UDA vay. ate IME x:xx:xx 


REPLACE UDA MODULE M7161 


The host program timed out while waiting for an interrupt 
that had to occur. The UDA was told to use interrupts 
— the initialization process. The UDA then waited 
for the interrupt but it did not occur. Replace the 

UDA module M7161. 


00029 ruse DVC FTL ERR 00029 ON UNIT 00 TST = Das 004 PC: xxxxxx 
% HOST PROGRAM UDA AT 172150 RUNTIME x 
UDA INTERRUPTED AT DIFFERENT BR LEVEL. THAN SPECIFIED IN HARDWARE 
. QUESTIONS. INTERRUPT WAS AT BR LEVEL 5 
oy PRIORITY PLUG ON UDA MODULE M7161 
OR CHANGE HARDWARE QUESTIONS 


The tg ty | plug on the UDA and the BR LEVEL specified 
during the hardware questions do not match. Either 
oerer the plug number or reanswer the hardware question. 

l these have been done and there is still a problem 
replace UDA module M7161. 


00030 Fas ad DVC FTL ERR apres ON UNIT 00 yp ob _ Bass 000 PC: xxxxxx 
T PROGRAM UDA AT 172150 RUNTIME x 
UDA REPORTED FATAL ERROR IN UDASA REGISTER “UHILE RUNNING DM PROGRAM 
UDASA CONTAINS 100004 


A message from the UDA firmware reports an unexpected 
failure. An error code is presented in the UDASA. 
Here is a list of the codes and their meanings: 


004400 = UDA has been inited AG either a bus init or by 
writing into the U 

100001 = UNIBUS Bsc. thon been read error (parity or timeout) 

100002 = UNIBUS envelope/packet write error (parity or timeout) 

100003 = UDA ROM and RAM parity error 

100004 = UDA RAM parity error 

100005 = UDA ROM parity error 

100006 = UNIBUS ring read error 

100007 = UNIBUS ring write error 

100010 = UNIBUS interrupt master failure 

100011 = Host access timeout error 

2 - Host exceeded credit Limit 

3 = UDA SDI hardware fatal error 

4 - DM XFC fatal error 

5 - Hardware timeout of instruction loop 

6 - Invalid virtual circuit identifier 

7 - Interrupt write error on UNIBUS 
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00031 


00032 
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i Ra! FTL ERR 00031 ON UNIT 00 yo a a8 000 PC: xxxxxx 
PROGRAM UDA AT 172150 RUNTIME x 

+ INTERRUPT RECEIVED FROM DM PROGRAM. FOR 3" MINUTES 

ASSUME PROGRAM IS HUNG 


ALL DM programs are required to communicate with the 
og rogram; so as to assure _ host rerres that 

the D ore is not hung up or in an endless loop. 

If the DM program has not done so, the host program 

assumes the DM is hung and this message appears. 


cZUDC Mas! FTL ERR 00036 ON UNIT 00 =. _ Bes 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIM 
MESSAGE BUFFER ebatAthes FROM DM PROGRAM UITH UNKNOWN REQUEST NUMBER 
MESSAGE BUFFER CONTAINS 
000001 000002 000003 * 900004 000005 000006 gogo? 
000008 000009 000010 000011 000012 000013 00001 
000015 000016 000017 000018 000019 000020 0000 $021 
000022 000023 000024 000025 000026 000027 000028 
000029 000030 000031 000032 000033 000034 000035 


The DM presras and the host program communicate with 

eech other using rw-9 Each packet must have a 

request number set up by the DM program and interpreted 

by the host program. This request number is not a 

known request number. The problem may be the UNIBUS 

or either one of the UDA modules or a corrupted DM 

prcoram. Word 1 contains the DM request number, and 
word 2 typically contains the drive number. The rest 

of the buffer contains information specific to a 

DM request. The numbers in the example show the order 

in which words are displayed. 


SEQ 0023 


a 
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06033 ree DVC FTL ERR 00033 ON UNIT 00 TSi oon _— 000 PC: xxxxxx 
OST PROGRAM UDA AT 173150 URUNTIME. x 
RE SPONSE PACKET FROM UDA DOES NOT CONTAIN. EXPECTED DAT 
ode — aos ERROR STATUS OR PACKET WAS NOT RECEIVED CORRECTLY 


PACKET SENT RESPONSE PACKET RECEIVED 
000000 000020 000000 000020 
000000 000000 000000 000000 
000000 000002 000000 000202 
000000 014336 000000 014336 

00000 034674 000000 034674 
000000 000000 000000 000000 
000000 000000 000000 000000 

32 000000 051232 
000000 000000 000000 000000 
000000 000000 000000 000000 


The host program inspected the response packet which was 
given by to UDA. The response packet may have been in 
error with one of the following points: 


The end code was not as expected. 

5} The status code showed an error occurred with the 
last command. 

3) The command reference numbers (the first word) did 
not match. 


If 1 or 3 occurred, there may have been a transmission 
problem between the UDA and the host program. If 2 occurred, 
check the error code in the MSCP specification for further 
information. The packets are displayed two words 

per line, low order word and byte to the cet 
(corresponding to the MSCP Long-word entity 


00036 CZUDC DVC FTL ERR 00036 ON UNIT 00 -. — Bs 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME 
NO INTERRUPT RECEIVED FROM UDA FOR 50" SECONDS 
WHILE LOADING DM PROGRAM 


After a DM program has been sent to the UDA, the host 
program expects an interrupt within 30 seconds. The 
interrupt is used to assure the host program that the 
DM program is sane. If no interrupt occurred, then 
error message 00036 is displayed and the DM program is 
assumed to be hung. 
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06037 7 oes FTL oe Rg fA ON UNIT 00 TST — — 000 PC: xxxxxx | 
PROGRAM T 172150 RUNTIME x | 
UDA REPOSTED FATAL Ar aROn IN UDASA REGISTER. WHILE LOADING DM PROGRAM 
UPASA CONTAINS 100004 
REPLACE UDA MODULE M7161 


While loading tne DM program to the UDA, the UDASA 
became non-zero. When this occurs, it Signifies that 
the UDA microcode has run across a fatal error. The 
displayed value is in octal. Check the error code with 
the List included with error number 00030. 


00038 CZUDC DVC FTL ERR 00038 ON UNIT a TST 001 SUB 002 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
MEMORY ERROR TRYING TO READ UDA REGIST ERS 
oe UNIBUS SELECTION SWITCHES ON UDA MODULE M7161 


OR UNIBUS 
OR REPLACE UDA MODULE M7161 


A non-existant memory error occurred when the host program 
tried to access the UDAIP and UDASA registers while in 
subtest 2 of test 1. The UDA is at another address 

(check the UNIBUS selection switches) or module M7161 

is broken or the UNIBUS is broken. 


co C ---—- 
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01000 


01001 


TEST 1 ERROR MESSAGES (01000 TO 01999) 


CZUDC HRD ERR 01000 ON a 00 hy! -- SUB 007 PC: xxxxxx 
UNIBUS ADDRESSING DM PC:xxxx UDA AT xxxxxx RUNTIME hhh:mm:ss 
NON-EXISTANT MEMORY ERROR TRY ING TO READ FROM UNIBUS. 


OcT HEX 
ADDRESS 000000 00000 


The host has given the DM routine the range of 
accessible host memory. While reading one location 
within the range, it appeared non-existant to the UDA. 
Since everything within the bounds were believed to be 
accessible this error message will be printed. The 
message prints the address in octal and hex. 


CZUDC HRD ERR 01001 ON UNIT 00 TST 001 SUB 007 PC: xxxxxx 
UNIBUS ADDRESSING DM PC:xxxx UDA AT xxxxxx RUNTIME hhh:mm:ss 
PARITY ERROR ON READ FROM ee 


CTAL 
ADDRESS 000000 00600 
DATA READ 000000 0000 
DATA EXPECTED 000000 0000 
The host has given the )M routine the range of 
accessible host memory. While Hg ay one location 
within the range, the DM routine has found a sgcat ton 
with bad parity. Every location was accessed by the 
host program. The host program filled a location with 
its address. The message prints the address, 


the data it actually received, and the expected data it 
. Should have received in octal and hex. 


— 1008: ‘an zube HRD ERR 01002 ON UNIT 00 TST 001 SUB 007 PC: xxxxxx 


IBUS ADDRESSING DM PC:xx A AT xxxxxx RUNTIME hhh:mm:ss 
UNIBUS ADDRESSING ERROR - INCORRECT DATA READ. 
MEMORY LOCATION SHOULD — OWN wonrts 


TAL 
DATA READ 000000 0000 
DATA EXPECTED 000000 0000 


The host has given the DM routine the locations of 
accessible host memory. Every location was accessed 
by the host preeren. The host program filled a 
location with its address. The DM program read 

from one location and found that the data it read 
was not equal to its address. The message prints 
the address, the data it actual'y received, and 


the expected data it should have received in: octal and hex. 


SEQ 0026 
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Sa, Rye ERR 01003 ON _— “le iy! a SUB a of PC: ee 


DDRESSING DM PC:xxx MXKXKX 


UNTIME hhh 
NON-EXISTANT MEMORY ERROR TRYING. 10. READ FROM UNIBUS WITHIN. BUFFER. 
sitet 2 <2 OF BUFFER 195486 OAyDe 


IZE 001234 029C 


After reading every accessible location of host memory, 
the DM routine breaks up memory into buffers. The DM 
routine writes and reads data patterns from each host 
buffer into its DM buffer. While reading one of these 
buffers, a non-existant memory error occurred. The 
message prints out the starting address of the buffer 
and the size of the buffer in octal(for PDP-11 users) 
and in hex(for VAX users) so the user can determine 
about where the non-existant memory location occurred. 


CZUDC HRD ERR 01004 ON — A hy! Bp SUB 007 PC: xxxxxx 
UNIBUS ADDRESSING DM PC:xxx xxxxxx RUNTIME hhh:mm:ss 
PARITY ERROR ON READ FROM cneus ul tai Bur FER, 


STARTING +33) OF BUFFER 193456 OA72E 


BUFFER SIZE 001234 029 


After reading every accessible location of host ay °7 ge 
the DM routine breaks up memory into buffers. The DM 
routine writes and reads data patterns from each host 
buffer into its DM buffer. While reading one of these 
buffers, a parity error occurred. The message prints 
out the starting address of the buffer and the size of 
the buffer in octal(for PDP-11 users) and in hex(for 
VAX users) so the user can determine about where the 
non-existant memory location occurred. 


<_ 
SEQ 0027 | 


| 
! 
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01005 CZUDC HRD ERR 01005 ON UNIT 00 TST 001 SUB 007 PC: xxxxx 
UNIBUS ADDRESSING DM PC:xxxx UDA AT xxxxxx RUNTIME hhh:mm:ss 


BUFFER SIZE = 005302(0) paecne 2754.(D) 


104 0894A 
CURRENT DATA PATTERN READ 
LAST PATTERN WRITTEN 
STARTING ADDRESS OF LAST BUFFER WRITTEN 04512(0)  0894A(x) 
NUMBER OF ERRORS FOUN 4.(D) 
LOCATION DATA_EXPECTED DATA RECEIVED 
OCTAL HEX OCTAL HEX oc HEX 
057056 OSE2E 111111 9249 002472 053A 
057060 05E30 044444 4924 005302 OAC2 
057062 05E32 022222 2492 000000 0000 


After reading an entire buffer, the DM program checks 
each location. If any or all of the locations did not . 
contain the expected data, this meesage appears. It contains 
the buffer size in octal, hex and decimal. The reason 

it appears in decimal is so the user can corr (ate this 

value with the number of errors which is printed in 

decimal. The starting addresses of the buffers are 

printed in octal and hex. There will always be at 

least two buffers and up to four buffers printed. 

The current data pattern read is printed. DM program 

will be testing the buffer with this data pattern. 

The Last data pattern written by the DM program is 

printed. The address of the last buffer written is 

printed in octal and hex. As many as three errors are 
presented in the message. This portion presents the 

location of the error, the expected data and 

the actual data all in octal and hex. 


SEQ 0028 
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01006 


3.2.3 


CZUDC HRD ERR 01006 ON UNIT 00 TST 001 SuB <? 4% XXXKKK 
UNIBUS ADDRESSING DM PC:xxxx UDA AT xxxxxx RUNTIME ety a ss 
UNIBUS ADDRESSING ERROR. TWO ane ot READ sane LOCATI 


E 
KNOWN GOOD ADDRESS 6 25350 32AAA 
ERROR ADDRESS 42525 22AAA 
ADDRESS BIT IN ERROR 200000 10000 


The UDA can cily write to a small portion of memory 
because there is a PDP=-11 program running in the 
memory. To verify it can address all of memory, it 
uses one location that it is permitted to write which 
it calls a ‘*known good address'’. By changing only, one 
bit in the address of this location it selects a, “test 
address''. Different patterns are written to the **known 
good address", each followed by a read of the ° ‘test 
address’. If the data read from the ‘test address’ 
matches the data written to the “known good address'’ 
each time, the address Line is determined to be stuck. 
The “‘test address’ is printed as the error address. 


TEST 2 INFORMATIONAL MESSAGES 


UNIT x UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm 
INFORMATION SENT BACK FROM THE DRIVE IS BEING. PRESENTED. 
TEST NUMBER 0000 
DRIVE TYPE 00 
mA. ERROR NUMBER 0000 
ata 


There is not error, but it is a message. The disk 
drive wanted the let the host know what ne B 
happened when the drive's internal diagnostic 

was run. The format follows that of hard error 2021. 


UNIT x UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
FOLLOWING REPORT HAS BEEN TRUNCATED DUE TO SIZE 


This is a message that may ge if the disk drive 
gave too much data for the DM program to handle. 
his message may preceed the previous message and 
hard error 2021. 


SEQ 0029 
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3.2.4 


02000 


02001 


02002 


02003 
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TEST 2 ERROR MESSAGES (02000 TO 02999) 


ret HRD ERR 02000 ON UNIT . is 002 SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:xxxx UDA AT xxxxxx _ xxx RUNTIME hhh:mm:ss 
HOST SPECIFIED UNIT #0 THAT PANT BE FOUN 
TEST2 RESTARING 


When test 2 starts executing out of the DM, it doesn't 
know if it had been started to execute drive diagnostics 
or restarted to down line load a diagnostic into the 
drive. If it had been restarted + the latter reason, 
the host must tell Test 2 which drive was to receive the 
diagnostic. If the drive specified by the host is not 
attached to the UDA or could not be located by Test 2, 
this error message will be printed. 


CZUDC HRD ERR 02001 ak _. yy gl —. ~ 000 PC: xxxxxx 

DISK RESIDENT DM PC:x UDA DRIVE xxx RUNTIME hhh:mm:ss 
CANNOT RECEIVE VALID DRIVE STATE "ROM DRIVE AFTER DRIVE WAS INITED 
CHECK IF DRIVE IS POWERED ON. 


This error message is presented if valid drive state 

was not received from the drive after the drive was 
inited. There are two types of invalid states: no 
clocks or ‘hard’ errors. If after getting state and 

no clocks occur, error 2001 is reported. There may 

be a bad transmitter on the drive side or a bad receiver 
on the UDA side or the SDI cable may have taken a hit. 


ie HRD ERR 02002 wat — 00 ad ~~ SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:x UDA AT _xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
DRIVE STATE RECEIVED HAS “BAD PARITY AFTER DRIVE WAS INITED 


This error message is presented if bad parity was 

received from the drive after the drive was inited. 
There may be a bad transmitter on the drive side 

or a bad receiver on the UDA side or the SDI cable 
may have taken a hit. 


CZUDC HRD ERR —e hth ate . ae one SUB 000 ves XXXXXX 
DISK RESIDENT DM UDA xxxx DRIVE xxx RUNTIME hhh: 
DRIVE IS NOT ASSERTING. RECEIVER. READY IN DRIVE STATE AFTER DRIVE WAS. INITED 


This error message is presented if receiver ready was not 
received from the drive after the drive was inited. 

There may be a bad transmitter on the drive side or 

a bad receiver on the UDA side or the SDi cable may 

have taken a hit. 


SEQ 0030 


ic. 
‘ 
| 
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02004 CZUDC HRD ERR 02004 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
bey Be _ OF ECHO COMMAND TO DRIVE 


This error message is presented if a send of the 
ECHO command timed out. This may be caused by 
receiver ready being deasserted. The echo data 
is presented in hex. 


02005 sik HRD ERR 02005 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
eee bale” RECEIVE OF ECHO RESPONSE FROM DRIVE 


This error message is presented if a receive of an ECHO 
command was in error. The echo data is presented in hex. 
There may be a bad transmitter on the drive side or a 
~~ soon ser on the UDA side or the SDI cable may have 
aken a hit. 


02006 CZUDC HRD ERR 02006 ON UNIT . . 002 SUB 000 PC: 
DISK RESIDENT DM PC:xxxx UDA xxxxxx DRIVE xxx *RUNT IME hhh:mm:ss 
ECHO yur =yene WITH DIFFERENT DATA 
ECHO DATA SENT OOFE 
ECHO DATA RECEIVED OOFF 


This error message is presented if the data returning from 
an ECHO command did not match the data it was suppose to. 
The data presented is in hex. 


020°7 CZUDC HRD ERR 02007 aad a wr el oe SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:x UDA DRIVE xxx RUNTIME hhh:mm:ss 
ERROR BIT SET IN GET STATUS RESPONSE” AFTER DRIVE CLEAR COMMAND 
GET STATUS RESPONSE 
REAL TIME STATE state 
STATUS (FROM R TOL): word6 wordS word4 word3 word2 word! word0: 


This error message is presented when an error bit 

is set in the status of a drive after the drive 

was cleared of all errors. The data displayed 

is the responce from a GET STATUS command. 

The error bits in the responce are in bit position 3, 5 
and 6 of word2. for further description of the 

GET STATUS responce, refer to the SDI Functional 

Spec v3.6 and the drive's functional spec. 


REAL TIME STATE state: REAL TIME STATE 0003 
The real time state is the real time drive state <<AFTER>> Test 2 
detected the error. <<THIS VALUE IS DISPLAYED IN HEX>>. In this 
example, receiver ready and attention are both asserted. 


The bit posittons are defined as follows: 
= Receiver ready (Test 2 able to transmit to drive) 
0002 - Attention (error occurred or online timeout expired) 
0040 - Available (drive offline and usuable) 
1000 - Read/Write ready 


SEQ 0031 


| 3 
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02008 


02009 





The complete meaning of these bits is beyond the scope of this text, 
a refer to the operator documentation for the drive you are 
working on. 


STATUS (R TOL): word6 wordS word4 word3 word2 word! word0: 
The status is the response to the SDI GET STATUS command. These 
words are printed in HEX. <<NOTE THAT THE STATUS IS PRINTED OUT 
FROM RIGHT TO LEFT!!>>. The status’ ee is beyond the scope 
of this text, please refer to the operator documentation for the 
drive you are working on. 


CZUDC HRD ERR 02008 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
TIME-OUT ON SEND OF ONLINE COMMAND TO DRIVE 


The ONLINE command timed out while it was sent 
to the drive. The drive did not assert 
the RECEIVER READY signal over the SDI. 


CZUDC HRD ERR 02009 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
ote = RECEIVE OF ONLINE RESPONSE FROM DRIVE 

explanation 


This error message is presented if a receive of an ONLINE 
command was in error. An explanation of what the error was 
is also presented. These explanations are: 


TIMEOUT ERROR OCCURED DURING RECEIVE XFC 
- This error is a failure of the drive to respond to an 
SDI level 2 command (see the SDI specification) before 
the drive-supplied command timeout expires. 


1ST WORD NOT START FRAME DURING RECEIVE XFC 
- The first word received by the UDA from the drive was 
not a valid message start frame. 


FRAMING ERROR OCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC 
- This is caused by one of the yf ty conditions: 

1) Illegal frame code -- the frame is not a message 
start, continue, or end frame. 2) Il'egal sequence 
of frames == such as a message start f.:ame without 
ever receiving a message end frame. This can be 
caused by the drive sending a response before the UDA 
asserts receiver ready, or a random hit on the SDI 
cable that garbles a frame or a bad drive transmitter 
or UDA receiver. 


CHECKSUM ERROR OCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC 
- The checksum attached to a message end frame did not 
match the checksum computed over the level 2 command. 
This could be caused by a bad drive transmitter, bad 
UDA receiver, incorrectly conpytes checksum by the 
drive (unlikely) or a random 


it on the SDI cable. 


SEQ 0032 


Fences on 
| 
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02010 


02011 


02012 


02013 





BUFFER my SMALLER THEN RESPONSE DURING RECEIVE XFC 
- A buffer size size set aside for the response was not 
large enough for the response received. This is caused 
by the drive sending a response that is incorrect for the 
request sent to the drive, or the drive sending some 
garbage with the response. 


CODE FROM RECEIVE XFC WAS UNINTELLIGIBLE FROM SUBSYSTEM 0000 
- The responce from the drive was not anything that was 
preectes. Possible UDA microcode change without test 
update. 


CZUDC HRD ERR 02010 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 

DISK RESIDENT OM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
ONLINE COMMAND WAS UNSUCCESSFUL 

REAL TIME STATE 0003 

SIATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The ONLINE command was not successful. The drive's status 
- displayed. See hard error 2007 for further information 
n the format of the status. The drive did not assert 

the RECEIVER READY signal over the SDI. 


CZUDC HRD ERR 02011 ae uy . _ 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:x UDA xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
ONLINE COMMAND DID NOT. RETURN EXPECTED RESPONSE CODE 

EXPECTED RESPONSE /7E 

ACTUAL RESPONSE 00 


The ONLINE command did not return an expected 

response code. If there were at least an UNSUCCESSFUL 
response, test 2 will report the drive state and status. 
The expected response and actual response are in hex. 


CZUDC HRD ERR 02012 ON UNIT - ap 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
TIME-OUT ON SEND OF GET UNIT CHARACTER TST Ics COMMAND TO DRIVE 


ee GET UNIT CHARACTERISTICS command timed out 
hile it was sent to the drive. The drive did not assert 
the RECEIVER READY signal over the SDI. 


CZUDC HRD ERR 02013 - A * wr ged 002 SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:x xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
— = RECEIVE OF “GET a CHARACTERISTICS COMMAND FROM DRIVE 
explanation 


This error message is presented if a receive of a GET UNIT 
CHARACTERISTICS command was in error. An explanation of 
what the error was is also presented. These explanations 
are described in hard error 2009. 


SEQ 0033 


—_—_—_--——_-__—_ 
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02014 


02015 


02016 


02017 


02018 


crac HRD ERR 02014 ON UNIT oe rs 002 SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:xxxx UDA xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
ute tat Gan CORMAND "UNS UNSUCCESSFUL 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The GET UNIT CHARACTERISTICS command was not successful. 
The drive's status is displayed. See hard error 2007 for 
further information on the format of the status. 


CZUDC HRD ~ 02015 = UNIT 00 TST 002 SUB 000 — nanea 

DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE x UNTIME hhh 

GET UNIT CHARACTERISTICS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE" N\ 
EXPECTED RESPONSE 78 
ACTUAL RESPONSE 00 


The GET UNIT CHARACTERISTICS command did not return an expected 
Ama ng code. The expected response and actual response 
are in hex. 


CZUDC HRD ERR 02016 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
HOST PROGRAM GAVE DM CODE IMPROPER DATA 
EXPECTED VALUE SHOULD BE BETWEEN 0 AND 3 
ACTUAL VALUE WAS xx 


The host tells the DM program what to do after the DM 
program is done testing the drive's diagnostic. If 
the value is not within the expected range, this error 
message is printed. There is no drive problem. The 
problem is between the host and the UDA. 


CZUDC HRD ERR 02017 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
TIME=OUT ON SEND OF DIAGNOSE COMMAND TO DRIVE 


The age command freed out while it was sent 


to the drive. The drive did not assert 
the RECEIVER READY signal over the SDI. 


CZUDC HRD — oer? i. ane 00 TST 002 SUB 000 PC: xxxxxx 


DISK RESIDENT UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
ERROR DURING RECEIVE OF “DIAGNOSE RESPONSE FROM DRIVE 
explanation 


This error message is presented if a receive of a DIAGNOSE 
command was in error. An explanation of what the error was 
is also presented. These explanations are described in 
hard error 2009. 


C 
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02019 


02020 


02021 


02022 


02023 
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Si HRD ERR 02019 ON eg 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 


DIAGNOSE COMMAND WAS UNSUCCESSF UL 
REAL TIME STATE 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The DIAGNOSE command was not successful. The drive's status 
is displayed. See hard error 2007 for further information 


on the format of the status. 


ee HRD ERR 02020 ON UNIT . Bah SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:xxxx UDA A DRIVE xxx RUNTIME hhh:mm:ss 
DIAGNOSE COMMAND DID “a RETURN EXPECTED RESPONSE CODE 

EXPECTED RESPONSE FC 

ACTUAL RESPONSE 00 


The DIAGNOSE command did not return an expected 
response code. The expected response and actual response 


are in hex. 


sty HRD ERR 02021 ON UNIT 00 TST 002 SUB 000 PC: xxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
DRIVE DIAGNOSTIC REPORTS A HARD ERROR 
TEST NUMBER 0000 
DRIVE TYPE 00 
ERROR NUMBER 0000 


data 
The drive diagnostic found an error and is reportin Ay 
error back to the host. All values are in hex. T NUMBER 
shows what test was run. DRIVE TYPE shows what type of 
drive was being tested. ERROR NUMBER shows the result of 
the test. The drive may pass back data to the host. 
This data will be presented in a 32 bit hex format wpehaveng 
the error message. More data may follow the 32 bit hex 
values. This data is printed in ascii format. Por 
definitions of what these values mean, refer to the 
drive functional spec. 


CZUDC HRD ERR 02022 ON a * ed 002 SUB 000 PC: mT 
DISK RESIDENT DM PC:xxx xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
HOST PROGRAM DOWN LINE LOADED A ‘DIAGNOSTIC WITH A TEROCB BYTE COUNT 


The host free was attempting to down line load a 
diagnostic of zero length. The DM program must have 
the byte count specified by the host. 


CZUDC HRD ERR 02023 ON wut ‘- rst 002 SUB 000 PC: xxxxxx 


DISK RESIDENT DM PC:xxxx xxxxxx DRIVE xxx RUNTIME hhh 
DIAGNOSTIC filnam REQUESTED UB THE DRIVE COULD NOT BE SUPPLIED BY muosT. 


The host program could not supply the diagnostic ‘filnam’ 
to down Line load to the drive. 


SEQ 0035 


ann 


EEE 
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02026 


02027 


02028 


02029 


CZUDC HRD ERR 02024 ON “2 00 TST 002 SUB 000 PC: xxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNT IME hhh:mm:ss 
TIME-OUT ON SEND OF MEMORY READ COMMAND TO DRIVE 


The MEMORY READ command timed out while it was sent 
to the drive. The drive did not assert 
the RECEIVER READY signal over the SDI. 


CZUDC HRD ERR 02025 ON ae 00 TST 002 SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
ERROR DURING RECEIVE OF MEMORY READ RESPONSE FROM DRIVE 

explanation 


This error message is presented if a receive of a MEMORY READ 
command was in error. An explanation of what the error was 
is also presented. These explanations are described in 

hard error 2009. 


CZUDC HRD ERR 02026 ON UNIT 00 TST 002 SUB 000 PC: 

DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx “RUNTIME hhh:mm:ss 
MEMORY READ COMMAND WAS UNSUCCESSFUL 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


The MEMORY READ command was not successful. The drive's status 
is displayed. See hard error 2007 for further information 
on the format of the status. 


CZUDC HRD ERR 02027 ON ag * . is A... ws 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx xxx DRIVE «xx RUNTIME hhh:mm:ss 
MEMORY READ COMMAND DID NOT UOETURN EXPECTED RESPONSE CODE 

EXPECTED RESPONSE 72 

ACTUAL RESPONSE 00 


The MEMORY READ command did not return an expected 
peapenee code. The expected response and actual response 
are in hex. 


CZUDC HRD ERR 02028 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
TIME-OUT ON SEND OF MEMORY WRITE COMMAND TO DRIVE 


— Baye | WRITE command timed out while it was sent 
e drive. The drive did not assert 
the RECEIVER READY signal over the SDI. 


CZUDC HRD ERR 02029 ON ~pah wh rst 002 a > ove PC: xxxxxx 

DISK RESIDENT DM PC:xxxx UDA OOOO IVE xxx RUNTIME hhh:mm:ss 
ERROR DURING RECEIVE OF MEMORY ORITE RESPONSE FROM DRIVE 

explanation 


This error message is presented if a receive of a MEMORY WRITE 
command was in error. An explanation of what the error was 

is also presented. These explanations are described in 

hard error 2009. 


SEQ 0036 
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| 
| 02030 sec HRD ERR 02030 ON UNIT 00 TST 002 SUB 000 PC: xxxxx 

DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
og Ye star COMMAND WAS UNSUCCESSFUL 


ATE 0 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The MEMORY WRITE command was not successful. The drive's status 
is displayed. See hard error 2007 for further information 
on the format of the status. 


02031 CZUDC HRD ERR 02031 ON UNIT . fl a ~~ 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA DRIVE xxx RUNTIME hhh:mm:ss 
MEMORY WRITE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE 
EXPECTED RESPONSE /7E 
ACTUAL RESPONSE 00 


The MEMORY WRITE command did not return an expected 
ey code. The expected response and actual response 
are in hex. 


02032 CZUDC HRD ERR 02032 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
TIME-OUT ON SEND OF RUN COMMAND TO DRIVE 


ay — command timed out while it was sent 
e drive. The drive did not assert 
oy RECEIVER READY signal over the SDI. 


02033 CZUDC HRD ERR 02033 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
a a bay RECEIVE OF RUN RESPONSE FROM DRIVE 
explanation 


This error message is presented if a receive of a RUN 
command was in error. An explanation of what the error was 
is also presented. These explanations are described in 
hard error 2009. 


02034 CZUDC HRD ERR 02034 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
RUN COMMAND WAS UNSUCCESSFUL 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The RUN command was not successful. The drive's status 
is displayed. See hard error 2007 for further information 
on the format of the status. 


SEQ 0037 
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02036 


02037 


02038 


02039 


02046 


crac HRD ERR 02035 ON UNIT 00 TST 002 SUB 000 PC: xxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNT IME hhh:mm:ss 
UN COMMAND DID NOT RETURN EXPECTED RESPONSE CODE 
VEXPECTED RESPONSE /7E 


ACTUAL RESPONSE 00 


The RUN command did not return an expected 
fog oy 4 code. The expected response and actual response 
are in hex. 


CZUDC HRD cae 02036 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
TIME-OUT ON SEND OF RECALIBRATE COMMAND TO DRIVE 


_ RECALIBRATE command timed out while it was sent 
the drive. The drive did not assert 
the RECEIVER READY signal over the SDI. 


CZUDC HRD ERR 02037 = ae . pd Af SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:xx UDA DRIVE xxx RUNTIME hhh:mm:ss 
ERROR DURING RECEIVE OF XRECALIGRATE: RESPONSE FROM DRIVE 

explanation 


This error message is presented if a receive of a RECALIBRATE 
command was in error. An explanation of what the error was 
is also presented. These explanations are described in 

hard error 2009. 


CZUDC HRD ERR 02038 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
RECALIBRATE COMMAND WAS UNSUCCESSFUL 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


The RECALIBRATE command was not successful. The drive's status 
is displayed. See hard error 2007 for further information 
on the format of the status. 


CZUDC HRD ERR 02039 ON at 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
RECALIBRATE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE 

EXPECTED RESPONSE /7E 

ACTUAL RESPONSE 00 


The RECLAIBRATE command did not return an expected 
yoapanse code. The expected response and actual response 
are in hex. 


CZUDC HRD ERR 02040 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
ri RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
TIME-OUT ON SEND OF GET STATUS COMMAND TO DRIVE 


me = STATUS command timed out while it was sent 


e drive. The drive did not assert 
the RECEIVER READY signal over the SDI. 


SEQ 0038 


c— 
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02041 


02042 


| 
| 
| 
02043 
02044 
| 


02045 


een ee ee ares 


ig HRD ee eevet — ne s il — “~ 000 PC: xxxxxx 

DISK RESIDENT xxxx DRIVE xxx RUNTIME hhh:mm:ss 
ERROR DURING RECEIVE OF “ter” STATUS “RESPONSE FROM DRIVE 
explanation 


This error message is presented if a receive of a GET STATUS 
command was in error. An explanation of what the error was 
is also presented. These explanations are described in 

hard error 2009. 


CZUDC HRD ERR 02042 ON UNIT 00 Ts: 002 SUB 000 PC: xxxxxx 
DISK tg DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
GET STATUS COMMAND WAS UNSUCCESSFUL 
REAL TIME STATE 0003 
STATUS (R TO 1): 1312 1110 0908 0706 0504 0302 0100 


yy GET STAUTS command was not successful. The drive's status 
displayed. See hard error 2007 for further information 
on ihe format of the status. 


CZUDC HRD ERR 02043 ON UNIT we a A.2 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA DRIVE xxx RUNTIME hhh:mm:ss 
GET STATUS COMMAND DID NOT SP TURN EXPECTED RESPONSE CODE 

EXPECTED RESPONSE F6 

ACTUAL RESPONSE 00 


The GET STATUS command did not return an expected 
ag my 4 code. The expected response and actual response 
are in hex. 


CZUDC HRD ERR 02044 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
TIME-OUT ON SEND OF DRIVE CLEAR COMMAND TO DRIVE 


The DRIVE CLEAR command timed out while it was sent 
to the drive. The drive did not assert 
the RECEIVER READY signal over the SDI. 


CZUDC HRD ERR 02045 - aa 00 TST 002 SUB 000 PC: xxxxxx 

DISK RESIDENT DM PC:x >UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
ERROR DURING RECEIVE OF "DRIVE CLEAR RESPONSE FROM DRIVE 

explanation 


This error message is presented if a receive of a DRIVE CLEAR 
command was in error. An explanation of what the error was 
is also presented. These explanations are described in 

hard error 2009. 


SEQ 0039 


1 
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02046 crac HRD ERR 02046 ON — 00 TST 002 SUB 000 PC: xxxxxx 
DISK RESIDENT DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
DRIVE CLEAR COMMAND WAS UNSUCCESSFUL 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The DRIVE CLEAR command was not successful. The drive's status 
is displayed. See hard error 2007 for further information 
on the format of the status. 


02047 CZUDC HRD ERR 02047 ON UNIT ¥ TST ae ~ 000 PC: xxxx 
DISK RESIDENT DM PC:xxxx UDA AT x DRIVE xxx RUNT IME hhh:mm:ss 
DRIVE CLEAR COMMAND DID NOT RETURN. EXPECTED RESPONSE CODE 
EXPECTED RESPONSE /7E 
ACTUAL RESPONSE 00 


The DRIVE CLEAR command did not return an expected 
meepante code. The expected response and actual response 
are in hex. 


3.2.5 TEST 3 INFORMATIONAL MESSAGES 


UNIT xx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
LOGGABLE INFORMATION AFTER RECAL 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


After sending a RECALIBRATE command, the ATTENTION 

bit was set. Test 3 then sent a GET STATUS command 
and found the ag rg INFORMATION bit was set. This 
is not an error, it is only some information being sent 
from the drive. Normal operation continues. 


Check 03001 for explanation of "REAL TIME STATE' and ‘STATUS' 
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3.2.6 TEST 3 ERROR MESSAGES (03000 TO 03999) 


03001 re HRD ERR 03001 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNT IME hhh:mm:ss 
TIME=OUT ON SEND 
COMMAND WAS command 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


If test 3 tries to send a level 2 command to the drive, and 
receiver ready is deasserted, error 3001 occurs. 
Where command is one of the fol lowing: 

GET COMMON CHARACTERISTICS 

ONL INE 

DRIVE CLEAR 

DIS 


CONNECT 
GET Hota Wy CHARACTERISTICS 
GET STATUS 


CHANGE MODE 
INITIATE RECLIBRATE 
SPIN UP 


RCAL TIME STATE state: REAL TIME STATE 0003 


SEQ 0041 


The real time state is the real time drive state <<AFTER>> Test 3 
detected the error. <<THIS VALUE IS DISPLAYED IN HEX>>. In this 


example, receiver ready and attention are both asserted. 
The bit positions are defined as follows: 
0001 - 


Receiver ready (Test 3 able to transmit to drive) 
0002 = Attention (error occurred or online timeout expired) 


0040 - Available carves offline and usuable) 
1000 - Read/Write read 


The complete meaning of these bits is beyond the scope of this text, 
please refer to the operator documentation for the drive you are 


working on. 


STATUS (R TOL): word6 wordS word4 word3 word2 word? word0: 
The status is the response to the SDI GET STA 


TUS command. 
words are printed in HEX. <<NOTE THAT THE STATUS IS PRINTED "out 
FROM RIGHT TO LEFT!!>>. The status’ — is beyond the scope 
° 


of this text, please refer to the operator 
drive you are working on. 


cumentation for the 
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03002 C7UDC HRD ERR 03002 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
TIMEOUT OF RECEIVE 
COMMAND WAS GET COMMON CHARACTERISTICS 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


This error is a failure of the drive to respond to an SDI 
level 2 coonand (see the SDI specification) befor the 
drive-supplied command timeout expires. 


Check 03001 for explanation of ‘REAL TIME STATE’ and ‘STATUS' 


03003 CZUDC HRD ERR 03003 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
FIRST WORD RECEIVED WAS NOT A START FRAME 
COMMAND WAS GET COMMON CHARACTERISTICS 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The first word received by the UDA from the drive was not a 
valid message start frame. 








03004 CZUDC HRD ERR 03004 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
FRAMING ERROR ON LEVEL O RESPONSE 
COMMAND WAS GET COMMON CHARACTERISTICS 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


Error 3004 “, cavers ms one or more of the following 
conditions: Illegal frame code -- the frame is not 

a message me § continue, or end frame. 2) Illegal 
sequence of frames -- such as a message start frame 
without ever receiving a message end frame. This can be 
caused by the drive sending a response before the UDA 
asserts receiver ready, or a random hit on the SDI cable 
that garbles a frame or a bad drive transmitter or UDA 
receiver. 


Check 03001 for explanation of "REAL TIME STATE’ and ‘STATUS‘ 


03005 cree HRD ERR 03005 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA an DRIVE xxx RUNTIME hhh:mm:ss 


ONSE 
COMMAND WAS GET COMMON CHARACTERISTICS 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The checksum attached to a message end frame did not match 
the checksum computed over the level 2 command. This could 
be caused by a bad drive transmitter, bad UDA receiver, 
incorrectly computed checksum by the drive (unlikely) 

or a random hit on the SDI cable. 


Check 03001 for explanation of ‘REAL TIME STATE’ and ‘STATUS‘ 
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et. HRD fon 03006 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
RESPONSE uk oreet THAN EXPECTED 
COMMAND WAS GET COMMON CHARACTERISTICS 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The buffer size set aside for the response was not large 
enough for the response received. This is caused by the 
drive —s a response that is incorrect for the request 
sent to the drive, or the drive sending some garbage with 
the response. 


Check 03001 for explanation of ‘REAL TIME STATE’ and ‘STATUS‘ 


CZUDC HRD ERR 03007 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 

DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 

CODE FROM RECEIVE WAS UNINELLIGIBLE FROM SUBSYSTEM = 0000 

COMMAND WAS GET COMMON CHARACTERISTICS 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 
The unknown error code occurs when tne UDA returns an error 
code from an operation that test 3 does not_recognize. 
Possible UDA microcode change without test 3 update. 


Check 03001 for explanation of ‘REAL TIME STATE’ and ‘STATUS' 


CZUDC HRD ERR 03008 ON UNIT 00 TST 003 SUB 0006 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
COMMAND ae NOT RETURN EXPECTED RESPONSE CODE 
COMMAND WAS GET COMMON CHARACTERISTICS 
EXPECED RESPONSE /7E 
ACTUAL gi hy ® 7D 
REAL TIME STATE 0003 
STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


This is caused by receiving an UNSUCCESSFUL response from 
the drive, or the drive sending some response other than 
the correct response for the request sent to the drive. 
See the contents of status for the unexpected response 
error (or reason). 


Check 03001 for explanation of "REAL TIME STATE’ and ‘STATUS’ 


crac HRD ERR ree a UNIT a. -—" 003 SUB 000 PC: xxxxxx 

DISK FUNCTION DM UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
DRIVE NOT ASSERTING: RECEIVER READY IN DRIVE STATE 
REAL TIME STATE 0003 


Test 3 inits the drive and checks the drive's real time 


state. If RECEIVER READY was not asserted after a period 
of time this error message is printed. 


SEQ 0043 


a 
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rat HRD ERR iy _ ha 00 TST 003 SUB 000 PC: xxxxxx 

DISK FUNCTION DM PC: UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
FAILED TO RECEIVE VALID “DRIVE STATE 
REAL TIME STATE 0003 


There are two types of invalid state: no clocks or ‘hard'‘ 
errors. If after getting state and no clocks occur, 
error 3010 is reported. Check the drive state for further 


information. 
CZUDC HRD fon 03011 <5 UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:x UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 


CANNOT iF bhive ree “STATE FROM DRIVE 
CHECK _IF DRIVE IS POWERED ON. 
REAL TIME STATE 0003 


After the test 3 sends the drive a DISCONNECT command 
test 3 should be able to receive state from the drive. 
The drive may have spun down after the DISCONNECT command. 


CZUDC HRD ERR 03012 - UNIT 00 TST 003 SUB 000 PC: xxxxxx 

DISK FUNCTION DM PC:xxxx UDA AT ata DRIVE xxx RUNTIME hhh:mm:ss 
DRIVE STATE RECEIVED. HAS BAD PARITY 

REAL TIME STATE 0003 


As in 3010, we can get two types of invalid state. If 
parity or pulse errors occur for 1/2 a second, either 

the transmitter or receiver is bad. This could be caused 
by bad transmitter or receiver or by a hit on the SDI 
cable. 


C7UeC DVC FTL 03013 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 

DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
NO VALID STATE FROM DRIVE 

REAL TIME STATE 0003 


The drive recieved either one of the two types of invalid 
state that are described in 3010 and 3012. Check state 
for further information. This could be caused by a bad 
transmitter or receiver or by a hit on the SDI cable. 


CZUDC HRD ERR 03014 ON UNIT 00 7 003 SUB 000 PC: xxxxxx 

DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
SUBUNIT CHARACTERISICS SAY THERE ARE ZERO READ ONLY GROUPS 

IN THE DIAGNOSTIC AREA 


After interrogating the subunit characteristics, test 3 
finds out that the drive claims there are zero read only 
groups in the diagnostic area. There must be at least 
one for the test to run. 


SEQ 0044 


a 
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03015 site HRD ERR 03015 al a 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:x AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
SUBUNIT CHARACTERISTICS. sav THERE ARE LESS THAN 1 READ/WRITE 
GROUPS IN THE DIAGNOSTIC AREA 


After atts ge Fey the subunit characteristics, test 3 
finds out that the drive claims there are zero read/write 
groups in the diagnostic area. There must be at least 
one for the test to run. 


03016 CZUDC HRD ERR 03016 ON UNIT 00 go — = 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT DRIVE xxx RUNTIME hhh:mm:ss 
NEITHER R/W READY NOR ATTENTION SET *AFTER RECALIBRATE COMMAND 
REAL TIME STATE 0003 


After a RECALIBRATE command, R/W READY or ATTENTION did 
not set. Check the state for further information. This 
could be cause by a bad transmitter or receiver or by a 
hit on the SDI cable. 


03017 CZUDC HRD ERR 03017 — UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
SUBUNIT CHARACERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER 


After interrogating the subunit characteristics, test 3 
finds out that the drive claims there are zero diagnostic 
cylinders. There must be at least one for the test to run. 


03018 CZUDC HRD ERR 03018 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx are xxx RUNTIME hhh:mm:ss 
READ/WRITE READY DROPPED BEFORE FORMAT OPERATION 


The R/W READY signal was deasserted by the aw before 
a format operation was going to be sent by the UDA. 

The drive may have gone off line or is not transmitting 
properly or the UDA may not be receiving properly or 
the SDI cable took a hit. 


03019 CZUDC HRD ERR 03019 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT arty DRIVE xxx RUNTIME hhh:mm:ss 
FORMAT OPERATION REPORTED TIME-OUT FAILURE 
CYLINDER aaa. GROUP bb. TRACK cc. 


The format ete page sent by the UDA failed. The command 
timed out possibl 4 due to receiver ready being dropped or 
communication pre lem (bad transmitter or receiver or hit 
on the SDI cable 


Where: 
aaa is the cylinder value in decimal. 
bb is the rou value in decimal. 

cc is the track value in decimal. 
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03020 net HRD oo Ao ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTI PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
AFTER BECALSN ERROR BITS WERE SET 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


After sending a RECALIBRATE command, the ATTENTION 
bit was set. Test 3 then sent a GET STATUS command 
and found the error bits were set. For further 
information, check the state and the status. 


Check 03001 for explanation of ‘REAL TIME STATE’ and ‘STATUS 


03022 4 HRD ERR 03022 - Bay 5 00 TST 003 SUB 000 PC: xxxxxx 


ISK FUNCTION DM PC:x UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
READ/WRITE READY DROPPED BEFORE WRITE OPERATION 


The R/W READY signal was deasserted by the drive before 
a write operation was going to be sent by the UDA. 

The drive may have gone off Line or is not transmitting 
properly or the UDA may not be receiving properly or 
the SDI cable took a hit. 


03023 sree HRD ERR 03023 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM Bede UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BLOCK: 
WRITE OPERATION REPORTED FAILURE == ERROR CODE aaa OCTAL. 
DBN bbb. CYLINDER ccc. GROUP dd. TRACK ee. 


After each track in the diagnostic space is formatted, at 
least one block must be able to have data written to it 
and read from it and the data must be correct. Not one 
block (DBN bbb.) from track (ee) was able to pass. The 
arver code (aaa) gives the reason for the write operation 
ailure. 


Where: 
aaa is the error code in octal. 
It may have one of the following values: 
2 = drive failure 
3 = requested LBN is a secondary 
revector. 
>>> We are — with DBN's 
= header compare failure 
(desired header not found) 
53 = suspected positioner error 
13 = read/write ready failure 
53 = drive data or state clock timeout 
(indicates cable/transmitter/ 
receiver broken) 
313 = receiver ready timeout 
413 = drive state receive error during write 
bbb is the DBN . decimal. 
ccc is the cylinder value in decimal. 
dd is the grou value in decimal. 
ee is the value in decimal. 


<<< NOT 
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03024 


03025 


Sie HRD ERR ne ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
UNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
READ /UNI Te READY DROPPED BEFORE READ OPERATION 


The R/W READY signal _ deasserted by the drive before 
a read operation was goi ng to be sent by the UDA. 

The drive may have gone off line or is not transmitting 

properly or the UDA may not be receiving properly or 

the SDI cable took a hit. 


lie HRD ERR 03025 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM +e UDA AT xxxxxx DRIVE xxx RUNTIME 1 epg 


After each track in the diagnostic space is formatted, at 
least one block must be able to have data written to it 
and read from it and the data must be correct. Not one 
block (DBN bbb. } from track (ee) was able to pass. The 
eer code (aaa) gives the reason for the read operation 
ailure. 


Where: 
aaa is i error code in octal. 
t may have one of the following values: 
2 = drive failure 
3 = requested LBN is a secondary 
revector. 
<<< NOTE >>> We are working = DBN's 
= header compe - *ailure 
(desired newwer not found) 
SERDES overrun error 
data sync timeout on read 
suspected positioner error 
read/write ready failure 
drive data or state clock timeout 
(indicates cable/transmitter/ 
receiver broken) 
3 receiver ready timeout 
413 = drive state receive error during write 
bbb is the DBN in decimal. 
ccc is the cylinder value in decimal. 
dd is the ro value in decimal. 
ee is the value in decimal. 


pay 
wW 
" 


SEQ 0047 


a 
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03026 crac HRD ERR 03026 ON UNIT 00 TST 003 SUB 000 _ HOOK 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE x RUNTIME hhh:mm:ss 
ne NOT WRITE AND READ ANY BLOCK ON THIS TRACK. “ON LAST BLOCK: 
DATA COMPARE FAILURE ON WORD aa. 
ceceree ‘ a ; 


| 

| 

: ACTUAL DAT 

CYLINDER ddd. GROUP ee. TRACK ff. 


After each track in the diagnostic space is formatted, at 
least one block must be able to have data written to it 
and read from it and the data must be correct. Not one 
block (DBN bbb.) from track (ee) was able to pass. The 
data read did not match the data written. 


Where: 
aa is the offset in decimal into the buffer where 
the error occurred. 
bbbb is the expected data in hex. 
cccce is the actual data in hex. 
ddd is the cylinder value in decimal. 
ee is the group value in decimal. 
ff is the track value in decimal. 


03027 sree HRD ERR 03027 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx ORIVE xxx RUNTIME hhh:mm:ss 
SEEK COMPLETE TIME-OUT -- READ/WRITE READY DID NOT SET 
SEEK WAS TO CYLINDER aaa. GROUP bb. 


After a SEEK command has been successfully sent from the UDA 
to the drive, the signal READ/WRITE READY must be set to 
indicate that the seek completed. If READ/WRITE READY 

never is asserted by the drive after the seek, the seek 
times out and error 3027 is presented. 


Where: 
aaa is the cylinder in decimal. 
bb is the group in decimal. 


03028 chat HRD ERR 03028 - _— 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:x UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
NO BLOCK ON THIS TRACK CAN BE READ. LAST BLOCK TRIED: 
aBN bbbb. CYLINDER ccc. GROUP dd. TRACK ee. 


After a seek to a track, at least one block must be able 
to be read to assure that test 3 can read the header. If 
not one block was successful, error message 3028 appears. 


where: 


ais ‘L* for LAN, 'D* for DBN, or 'X' for XBN. 
bbbb is the block number in decimal. 
ccc is the cylinder in decimal. 
dd is the roe number in decimal. 
ee is the track number in decimal. 





SEQ 0048 
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03029 crac HRD ERR 03029 = dag wv eo 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:x UDA xxxxx DRIVE xxx RUNTIME hhh:mm:ss 
AVAILABLE WAS NOT ASSERTED Or TeR DISCONNECT 
STATE RECEIVED state 


After the DISCONNECT command was sent, the AVAILABLE flag 
should be asserted after a period of time. It it never 
was, then error 3029 appears. There maybe a problem with 
a transmitter or a receiver or the SDI cable at this point. 


03030 si HRD ERR 03030 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
INVALID COMMAND aaaa WAS SUCCESSFUL 


Some invalid Level 2 commands are sent over the aves Be 
drive should find these illegal commands and flag t 
as such. If the drive doesn’t, then error 3030 a ttes appear. 


Where aaaa is the invalid command in hex. 


03031 lpg HRD ERR 03031 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
COMMAND WITH type LENGTH = a WAS SUCCESSFUL 


SDI level 2 commands with invalid Lengths are 
sent to the drive to check if the drive can find them. 


Where: 
type could be ‘COMMAND’ or ‘RESPONSE’ for which 
eld was affected 
a is the invalid length 


03032 4 HRD ERR 03032 - fag 4 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:x UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
UNIT DID NOT REPORT TRANSMI TT ION ERROR 
WHEN reason 


Invalid level 1 sequences were sent to the drive. 
Several sequences are tried and the drive should find 
fault with everyone of them. 


Where reason could be one of the following: 


AN END FRAME WAS SENT AFTER A START FRAME TIMED OUT 
A CONTINUE OR END FRAME DID NOT Ae A_START FRAME 
AN END FRAME WAS SENT WITH NO START FRAME 

AN END FRAME WIH A BAD CHECKSUM W. UAS SENT 

A CONTINUE FRAME WAS SENT WITH NO START FRAME 


03033 cruec HRD ERR 03033 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
OMIT ACCEPTED AN INVALID GROUP NUMBER FROM GROUP SELECT LEVEL 1 


A level 1 select group command with an itlogat group number 
is_sent to the drive. If the drive accepted it, then error 
3033 will be displayed. 





SEQ 0049 


4 
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03034 iy DVC FTL ERR 03034 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA } “ DRIVE xxx RUNTIME hhh:mm:ss 
UNABLE TO CORRECTLY READ OVERL 
THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING 


There are two overlays in test 3. For some reason that 
the overlay cannot be read correctly, error 3034 will be 
dispiayed. Since no code can be loaded into the UDA at 
this point, the UDA and ail attached drives will cease to 
be pected, The reason for this may be bad UNIBUS memory 
or board 1 may be failing. 


<<< NOTE >>> This is -- NOT -- a drive failure. 


03035 CZUDC DVC FTL ERR 03035 ON UNIT 00 TST 003 SUB 000 PC: xxxxxx 
DISK FUNCTION DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
SUCCESSFULLY WROTE ON DMN AREA WHEN DRIVE WAS WRITE PROTECTED 


An attempt was made to write on a write protected 
drive. It should have resulted in an error response 
from the disk drive, but it didn't. 


SEQ 0050 


ie 
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TEST 4 INFORMATIONAL MESSAGES 


UNIT u UDA AT ccccce DRIVE mn RUNTIME hh:mm:ss 
A CORRECTABLE ECC ERROR EXISTS IN type bn 
SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 


The above message occurs when Test 4 1) detects an ECC error and 
2) is able to correct it, and 3) the corrections are less than 
the drive ECC threshold, (a SDI DRIVE CHARACTERISTIC) and 4) the 
EDC computed over the corrected sector matched the EDC read. 


UNIT unit UDA AT udaadr DRIVE plug RUNTIME hh:mm:ss 
INITIAL WRITE COMPLETE 


Whenever Test 4 is STArted with initial write enabled, <<OR>> whenever 
it is STArted or REStarted and the diagnostic area is arong tested on a 
drive not in read only mode, the disk will be initially written. 

The above message occurs when the initial write completes. 


UNIT unit UDA AT udaadr DRIVE plus RUNTIME hh:mm:ss 
READ ONLY DRIVE, INITIAL WRITE WILL NOT BE PERFORMED 


If an initial write is to be performed (see above for conditions) 

and a unit or subunit is in read only mode, (can be set in the manual 
intervention questions) an initial write will not be performed, and 
this message will print to inform the operator. 


NOTE: DATA COMPARE ERRORS RESULT IF THE DISK IS NOT INITIALLY WRITTEN!! 


UNIT unit UDA AT udaadr DRIVE plug RUNTIME hh:mm:ss 
THE PREVIOUS DEVICE FATAL WILL CAUSE THE FOLLOWING DRIVES 
TO BE DROPPED: plug, plug+l, plugt2, plug+3 


plug: drive plug number -= each units plus number is 
displayed. for a single subunit drive (such as 
and RA80) only one plug number is displayed. 


If a device fatal error occurs and dropping is enabled, <<ALL>> subunits 
on the unit that the device fatal occurred must be dropped. To inform 
the operator, this message is printed after the device fatal error message. 


NOTE: IF MORE THAN ONE UDA IS ON A SYSTEM, THIS MESSAGE MAY NOT 
IMMEDIATELY FOLLOW THE DEVICE FATAL IF AN ERROR HAPPENS AT THE SAME 
TIME ON ANOTHER UDA. 


SEQ 0051 


r 
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04001 


04002 


04003 





TEST 4 ERROR MESSAGES (04000 TO 04999) 


CZUDC SFT ERR 04001 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
ATTN ASSERTED DURING SEEK == ERROR OR LOGGABLE INFORMATION 

SEEK FROM GRP group CYL cylinder TO GRP group CYL cylinder 

REAL TIME STATE 0 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


This error occurs when the drive asserts the SDI ATTENTION signal 
without asserting the READ/WRITE READY signal, indicating the 
unsuccessful completion of a seek. 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04002 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
ATTN ASSERTED UNEXPECTEDLY, ASYN DRIVE ERROR OR LOGGABLE 

INFORMATION == THIS IS AN <<UNCOUNTED>> SOFT ERROR 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


This is an asynchronous drive error. Asynchronous drive errors are 
those errors reported by the drive which are not related to a level 2 
command. These errors are reported * the drive using the SDI 
ATTENTION signal. The operator must look at the status returned to 
determine the error that occurred. 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04003 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
SEEK DID NOT COMPLETE, NEITHER ATTN OR R/W RDY WAS ASSERTED 

BEFORE TIMEOUT 

SEEK FROM GRP group CYL cylinder TO GRP group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


This error occurs when the drive fails to assert READ/WRITE READY 
before the seek timeout, which indicates the successful completion of a seek. 


See retry/recovery section for recovery details. 
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CZUDC HRD ERR 04004 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
RCT AREA CORRUPTED, COULD NOT FIND REPLACEMENT FOR 

LBN THAT WAS REVECTORED 

ATTEMPTING TO READ RCT LBN bn 

SEARCHING FOR LBN bn 


CZUDC HRD ERR 04004 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
RCT AREA CORRUPTED, COULD NOT FIND REPLACEMENT FOR 

LBN WITH HEADER NOT FOUND 

ATTEMPTING TO READ RCT LBN bn 

SEARCHING FOR LBN bn 


Error 4004 will occurr only when Test 4 is running in the 

customer data area. It occurs when 1) A sector is either marked revectored 

or the header can't be found in two revolutions of the disk (both cases 
should be revectored) and 2) The replacement for that sector isn’t found 

in the RCT and 3) a NULL entry isn't found at the end of the RCT 

(see DEC STANDARD 166, Replacement and ny Table Format). In either — 

asee. re nts should be reformatted, and the cause of the RCT corruption 
etermined. 


CZUDC HRD ERR 04005 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
<a NOT FOUND DURING WRITE 
n 
SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP group CYL cylinder 


Error 4005 occurs only when Test 4 is writing a DBN or RBN. This is vecause 
bad blocks in the diagnostic area are not revectored, and RBN's are what 
LBN’s are revectord to, so they should never be bad. Test 4 reports this 
error if the header being searched for couldn't be found in two 

revolutions of the disk. 


SEQ 0053 
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04006 sit SFT ERR 04006 ON bay 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
SELECT TRACK AND WRITE LEVEL 1 CMD NOT EXECUTED 
ATTEMPT attempt 


bn 
ste Tors FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP_group CYi cylinder 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


Select track and read or write not executed occurs when the 

UDA attempts to send the select track and read/write level *, cmd, 

but receiver ready is deasserted or the state is invalid so it 

cannot send the command (the SERDES could also be broken so it’s unable 
to send the command). The same error is generated if the UDA vets a 
header sync timeout, and when it looks at the drive's state, 

either invalid or reciever ready is deasserted (header sync timeout is 
<<NOT>> a error == it's quite normal on a high-density disk). 


See retry/recovery section for recovery details. 


04007 CZUDC SFT ERR 04007 ON UNIT 00 TST 04 SUB 000 PC: xxxx 
DISK EXERCISER DOM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNT IME hh:mm:ss 
ECC DETECTED ERROR 
RETRY retr 

ERROR RECOVERY LEVEL level 


type bn 
SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 


Error 4007 occurs if an ECC error is detected but ECC correction is 
disabled. 


See retry/recovery section for recovery details. 


04008 CZUDC SFT ERR 04008 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
Sr ige soceee ERROR, BUT CORRECTION FAILED 
ERROR RECOVERY LEVEL level 


bn 
ste TORS FROM INDEX sector TRK track GRP group CYL cylinder 


Error 4008 occurs if an ECC error is detected, but the correction 
algorithm is unable to correct the errors. 


NOTE: THIS IS USUALLY (BUT NOT ALWAYS) INDICATIVE " A BAD SPOT IN THE 
ECC RESIDUE AREA AFTER THE DATA AREA OF THE SECTOR 


See retry/recovery section for recovery details. 


SEQ 0054 
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crac SFT ERR 04009 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
iene EXCEED THRESHOLD 
ERROR RECOVERY LEVEL level 


bn 
ste Tors FROM INDEX sector TRK track GRP group CYL cylinder 
Errer 4009 occurs if an ECC error is detected, the correction 
algorithm succeeds in correcting the errors, but the number of bits 
that were corrected exceeds the correction threshold (a2 SDI DRIVE 
CHARACTERISTIC). 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04010 wh a* wi TST 04 SUB 000 PC: xxxxxx 


DISK EXERCISER DM PC:x XXxxXXX DRIVE xxx RUNTIME hh:mm:ss 
ieee SUCCEEDED, “aut Pepe De TECtS ERROR 


ys ERY LEVEL level 

ste TORS FROM INDEX sector TRK track GRP group CYL cylinder 
Error 4010 could be caused by several problems: 
1) A buffer with a few ECC errors that can ve corrected, but the EDC 
was incorrectly computed or written, or 2) The ECC algorith m 
incorrectly corrected the buffer and/or ie EDC value, (but corrections 
were less than the threshold) or 3) UDA buffer RAM problem. 


See retry/recovery section for recovery details. 


si HRD ERR 04011 ON UNIT 00 TST 04 SUB 000 PC: xxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNT IME hh:mm:ss 
ERROR RECOVERY TRIED ALL LEVELS WITHOUT SUCCESS 


bn 
Ghee group CYL cylinder 
Error 4011 occurs when retries are enabled, and Test 4 has tried 


all retries on all levels of error recovery. See ECC and EDC 
retries in the retry/recovery section. 


SEQ 0055 


; 
} 
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CZUDC HRD ERR 04012 ON UNIT 00 TST 04 SUB 900 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
DATA COMPARISON FAIL 

ECC OR EDC HAD DETECTED ERROR IN BUFFER 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 

PATTERN NUMBER pattern 

OFFSET OF ERROR WITHIN BUFFER: buf fer_offset 

OFFSET OF ERROR WITHIN DISPLAYED _LISi: List_offset (1ST WORD OFFSET 0) 
data0 datal data2 data3 data4 data 
data6 data? data8 data9 datal0 datall 


CZUDC HRD ERR 04012 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
DATA COMPARISON FAILED 

ECC OR EDC HAD <<NOT>> DETECTED ERROR IN BUFFER 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 

PATTERN NUMBER pattern 

OFFSET OF ERROR WITHIN BUFFER: buffer_offset 

OFFSET OF ERROR WITHIN DISPLAYED LIST: List_offset (1ST WORD OFFSET 0) 
data0Q datal data2 data3 data4 data5 
data6 data? data8 data9 datal0 datall 


pattern: The pattern number (decimal) that failed the comparison. 


buffer_offset: The offset of the error (decimal) within the sector read, 
where the first word in the sector is offset 0 


List_offset: The offset of the error (decimal) within the displayed List, 
where the first word in the list is offset 0 


datax: Test 4 displays twelve data words read from the sector. 
They are displayed left to right, top to bottom. 


Error 4012 occurs when a data compare detects a difference between 

the buffer read and a known data pattern. The operator is informed if 
the error was detected by the ECC or EDC. The first word of the sector 
which may or may not be printed, depending on the position of the error, 
is the pattern number replicated in each nibble of the word. If a disk 
is not initally written, it is likely that data comparison failures will 
occur in the fist word of the sector. The following is the first word 
of the sector for the sixteen different patterns. 


pattern word 0 pattern word 0 
1 010421 9 114631 
2 02104 10 125252 
3 03146 11 135673 
4 042104 12 146314 
5 052525 13 156735 
6 063146 14 167356 
7 073567 15 177777 
8 104210 16 000000 
Note that pattern 16 is mapped to pattern 0. 


SEQ 0056 
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EV FTL ERR 04013 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
CISER DOM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
ONLINE TO UDA, AND NOT SPINABLE 


If a drive dropps offline while being tested (a normal occurance during 
Test 4) and some event happens that makes the drive unspinnable (such as 
the operator popping out the run/stop switch) eer 4013 will be printed. 
If the operator inhibits dropping units, Test 4 will go into error recovery 
and loop on error 4023, spindle dropped ready. 


CZuUDC 
Disk. E 
DRIV 


D 
XER 
E NOT 


CZUDC_ DEV FTL ERR 04014 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
UNABLE TO COMPLETE SEEK == TRIED 3 TIMES 


bn 
GRee group CYL cylinder 


Once a seek has been attempted 3 times, and never successfull emptoved 
error 4014 will be printed and the entire unit dropped. If the operator 
inhibits droppin units, the drive will be recalibrated, and the seck 
will be attempted again. 


sty SFT ERR 04015 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
SEEK REQUIRED retries RETRIES BEFORE COMPLETING 
GRP group CYL cylinder 


retries: The number of times the seek was re-issued 


If a seek required retries, error 4015 would print to notify the 
operator. 


CZUDC DEV FTL ERR 04016 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
ERRORS DURING DRIVE INITIALIZATION AND SETUP 

THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING 


If any errors occur oa Bee and test initialization, DRIVES 
ATTACHED TO THE UDA THAT HAD THE DRIVE ett ee ges ERRORS WILL 
NOT BE TESTED. In this case, error 4016 will be printed to notify 
the operator. THIS ERROR DOES <<NOT>> REFER TO UDA INITIALIZATION. 
ed error is unaffected by the operator inhibiting the dropping of 
units. 
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CZUDC DEV FTL ERR 04017 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
NO VALID STATE FROM DRIVE 

NO DRIVE CLOCKS 


CZUDC DEV FTL ERR 04017 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
NO VALID STATE FROM DRIVE 

HARD PARITY OR PULSE ERROR FOR 1/2 A SECOND 


If Test 4 is <<EVER>> unable to get valid drive state, the drive is 

immediately dropped, and error 4 17 is printed. There are two types 

of invalid state: no clocks or ‘hard’ errors. If Test 4 <<EVER>> detects 

no clocks, the driver is dropped IMMEDIATELY. A and pulse errors 

are normal, so Test 4 spaerates them, <<UNLESS THEY HAPPEN CONTINUOUSLY 

FOR 1/2 A SECOND>>. Fy: do occur for 1/2 a second, either ~ 

transmitter or ones. is bad, and the drive 4s dropped; If t 

sete al has inhibited the dropping of units, Test 4 will raery = module 
that the error occurred on. 


CZUDC DEV FTL ERR — x wi! 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xx xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
ATTEMPT TO WRITE ON WRITE *ORUTECTED DRIVE 

ERROR CODE RETURNED FROM UDA: code 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


code: The error (in octal) returned to Test 4 from the UDA 
when Test 4 attempted to write on the write protected drive. 


The UDA error codes (in octal) are as follows: 


code error 

2 SELECT TRACK AND WRITE LEVEL 1 CMD NOT EXECUTED 
3 LBN IS REVECTORED 

4 HEADER NOT FOUN 

153 SEEK OR HEAD SELECT ERROR 

213 2/W RDY DROPP: 

253 DATA OR STATE CLOCK TIMEOUT 

313 RCVR RDY DROPPE 

413 REAL TIME STATE RECEIVE ERROR 


If an attempt is made to write on a write protected drive, the 
drive <<SHOULD>> drop READ/WRITE READY == this is an error code 
of 213. If <<ANY>> other code is returned from the drive, the 

aries is causing the write to fail in an incorrect manner. 


If Test 4 attempts to write on a write protected drive, error 4018 
is printed. Test 4 requires the drive to detect the attempt to write 
when write protected and return an error for this error to be printed. 
If the operator has inhibited the dropping of units, a seek will be 
issued and the write attempted again. 
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04020 


04021 


SEE aaa | r 


CZUDC HRD ERR 04019 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
may tgs FOUND DURING READ 


type 
SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP group CYL cylinder 


Error 4019 occurs only when Test 4 is reading a DBN or RBN. This is because 
bad blocks in the diagnostic area are not revectored, and RBN's are what 
LON's are revectord to, so they should never be bad. Test 4 reports this 
error if the header being searched for couldn't be found in two 

revolutions of the disk. 


CZUDC SFT ERR 04020 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

SISK EXERCISER OM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
SELECT TRACK AND READ LEVEL 1 CMD NOT EXECUTED 

ATTEMPT attempt 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


Select track and read or write not executed occurs when the 

UDA attempts to send the select track and read/write level 1 cmd, 

but receiver ready is deasserted or the state is invalid so it 

cannot send the command (the SERDES could also be broken so it's unable 
to send the command). The same error is generated if the UDA gets a 
header sync timeout, and when it looks at the drive's state, it is _ 
either invalid or reciever ready is deasserted (header sync timeout is 
<<NOT>> a error == it's quite normal on a high-density disk). 


See retry/recovery section for recovery details. 


CZUDC DEV FTL ERR 04021 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
DRIVE NOT FORMATTED IN 512 BYTE MODE == UNABLE TO TEST 

XBN 0 MODE WORD: mode 


mode: The mode word found on the drive's XBN 0 


Error 4021 occurs only when Test 4 is going to test in the customer 
data area, and the mode word found in XBN 0 is not the 512 byte mode 
word (126736 octal). See DEC STANDARD 166 “FCT Structure’. Inhibiting 
the dropping of units has no effect on this error. 


ee 


--—--—— 
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CZUDC DEV FTL ERR 04023 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
UNABLE TO CONTINUE TESTING 

PORT SWITCH OUT 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


If, during testing, the operator disables the port that Test 4 is using 
by popping out the port switch, Test 4 prints error 4023. CHANGING 

THE STATE OF THE PORT SWITCH FOR THE PORT THAT Test 4 IS <<NOT>> USING 
HAS NO EFFECT ON THE TEST. If cropping of units is inhibited, Test 4 
will loop in error recovery, printing this error, until the error 

state is corrected (by some external action). 


CZUDC DEV FTL ERR 04023 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
UNABLE TO CONTINUE TESTING 

RUN/STOP SWITCH OUT 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


If, ye testing, the operator pops out the ag ig Pie Oe 

Test 4 prints error 4023. If dropping of units is inhibited, Test 4 
will loop in error recovery, printing this error, until the error 
state is corrected (by some external action). 


CZUDC DEV FTL ERR 04023 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxx'xx DRIVE xxx RUNTIME hh:mm:ss 
UNABLE TO CONTINUE TESTING 

SPINDLE DROPPED READY 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


If, during testing, the spindle drops from its ready state, 
error 4025 is printed. If dropping of units is inhibited, Test 4 
will loop in error recovery, printing this error, until the error 


s 


state is corrected (by some external action). 


na 1 
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040246 CZUDC SFT ERR 04024 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER OM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
EDC DETECTED ERROR BUT ECC DID NOT 
RETRY retr 
ERROR RECOVERY LEVEL level 


type bn 
SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
EDC COMPUTED edc EDC READ edc 


edc: The edc computed and read in octal. 


Error 4024 could be caused by several problems. 1) A buffer with no 
ECC errors, but the EDC_was incorrectly computed or written, or 2) UDA 
buffer RAM problem, or 3) The error is such that the ECC really doesn't 
detect an error... This is unlikely. 


See retry/recovery section for recovery details. 


04025 CZUDC HRD ERR 04025 ON UNIT 00 TST 04 SUB 000 PC: xxxxxr 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
a MAXIMUM TIMES 
ype on 


If three 1/0 errors occur when attempting to write to the drive 
(one 1/0 error if retries are disabled) error 4025 is printed 
to inform the operator. 


04026 CZUDC HRD ERR 04026 ON UNIT 00 TST 04 SUB 009 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
a rae MAXIMUM TIMES 
ype on 


If three I/O errors occur when attempting to read from the drive 
(one 1/0 error if retries are disabled) error 4026 is printed 
to inform the operator. 


04028 CZUDC DEV FTL ERR 04028 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 


BOTH READ ONLY <AND> WRITE ONLY BITS SET == HOST ERROR 
Error 4028 prints ONLY !F THERE IS A HOST CODE ERROR -= THIS IS NOT 


AN ERROR FROM A DRIVE. Inhibiting the dropping of units has no effect 
on this error. 


SEQ 0061 


——_—_—-- 
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04033 CZUDC DEV FTL ERR 04033 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
UNABLE TO CORRECTLY READ OVERLAY over ‘sy numer 
THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING 


overlay number: The overlay number in octal that could not be read. 


— 


i 





Because of Test 4's size, most of the program is stored in host memory 

and is overlay driven. If any error is detected during a UNIBUS read 

of an overlay, Test 4 will retry the read (with no error reoert). It 

will attempt to read an overlay three times before error 4033 is 

printed, and the test immediately halted. This error can have several 
causes: 1) the UNIBUS died (it’s improbable that you even get the 

message in this case) or 2) the UDA’s UNIBUS interface died (also unlikely 
that you get a message), or 3) the host program wioed out the Test 4 
overlays (since they are stored in host memory = most Likely) or 4) a host 
memory problem = also likely. Inhibiting the dropping of units has no 
effect on this error. 


04034 CZUDC SFT ERR 04034 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
SERDES OVERRUN ERROR DURING READ 


ATTEMPT attempt 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The SERDES overrun error is detected on a read operation and is 
indicative of a drive whose transfer rate is greater than 23 MHZ 
or a broken SERDES. 


See retry/recovery section for recovery details. 


04035 CZUDC SFT ERR 04035 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
DATA OR STATE CLOCK TIMEOUT DURING READ 
ATTEMPT attempt 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 

ORIGIN OF SEEK: GRP group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 
The loss of drive clock occurs when the UDA is clocking data to or 
from the drive through the SERDES. Failure of a word to be 
clocked in during a 125 millisecond time period triggers a loss of 
drive clock error. 


See retry/recovery section for recovery details. 





cr 
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CZUDC SFT ERR 04036 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
DATA SYNC TIMEOUT DURING READ 

idhany attempt 


type 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP _group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


This error occurs on a read operation after the correct header has 
been found and the UDA times out waiting for the data sync word. 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04037 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
R/W RDY DROPPED DURING READ 

ATTEMPT attempt 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


The loss of read/write ready error is detected either before an 
1/0 has begun when trying to send out the real time command or at 
the end of an I/0 operation when checking for errors. 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04038 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
RCVR RDY DROPPED DURING READ 

ATTEMPT attempt 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


The loss of drive receiver ready is detected when the UDA is trying 


to send out a real-time read or write command. 
See retry/recovery section for recovery details. 


SEQ 0063 


or 
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04041 


CZUDC HRD ERR 04040 ~ a4 7 ~< 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:x xxxxx DRIVE xxx RUNTIME hh:mm:ss 
ALL COPIES OF RCT READ WITH URROR. SEARCHING FOR 

LBN THAT WAS REVECTORED 

LAST RCT LBN SEARCHED bn 

SEARCHING FOR LBN bn 


CZUDC HRD ERR 04040 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
ALL COPIES OF RCT READ WITH ERROR, SEARCHING FOR 

LBN WITH HEADER NOT FOUND 

LAST RCT LBN SEARCHED bn 

SEARCHING FOR LBN bn 


Error 4040 occurs when Test 4 is a to find the RBN that replaces 

a LBN that was revectored or whose header could not be found (both should 

= revectored). Test 4 was unable to get a valid copy out of the M copies 
the RCT due to 1/0 errors or ECC/EDC errors. M is a SDI DRIVE 

CHARACTERISTI¢ and is defined by the drive. This is indicitave of either 

a bad pack (HDA) or that something wrote over the RCT incorrectly. Try 

to reformat the subunit. 


si HRD ERR 04041 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
COULD NOT FIND REPLACEMENT FOR 
LBN THAT WAS REVECTORED 
LBN TO REPLACE bn 


CZUDC_ _HRD ERR 04041 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
COULD NOT FIND REPLACEMENT FOR 

LEN WITH HEADER NOT FOUND 

LBN TO REPLACE bn 


Error 4041 only occurs when Test 4 is running in the customer data area, and 

is trying to find the RBN that replaces a LBN that was revectored (must be 

in the RCT) or whose header could not be found (should be in the RCT, unless 

the media under the header has ‘grown’ a bad spot recently). In either case, 
Test 4 was unable to find an entry in the RCT for the the sector and the subunit 
should be reformatted. In the case of the revectored LBN, the cause of the 
RCT’s corruption should be determined (even with the header not found, 

the RCT may have been corrupted because a header going bad without warning 

Ceg. the formatter not being able to see it as a weak spot] is a very 

low probibility occurance). 


Haae ee Ne 
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04042 


04044 


04045 


EAXERCIS DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
TIMEOUT WAITING FOR SECTOR OR INDEX PULSE 


003 
STATUS (R TOL): 1312 1510 0908 0706 0504 0302 0100 


Error 4042 occurs when the UDA microcode never detects a sector 
or index pulse from the drive before a read or write operation. 
If dropping of units is inhibited, a seek will be issued, and 
the write attempted again. 


CZUDC SFT ERR 04044 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
SEEK OR HEAD SELECT ERROR DETECTED DURING WRITE 

ATTEMPT attempt 


LBN bn 
SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF eee a4 group CYL cylinder 


STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 
See error 4045 for description. 
See retry/recovery section for recovery details. 


CZUDC SFT ERR 04045 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
SEEK OR HEAD SELECT ERROR DETECTED DURING READ 

ATTEMPT attempt 


LBN bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


Errors 4044 and 4045 occur when the header comparison routine determines 
that the drive is positioned at the wrong physical cylinder, or that the 
wrong head (which can be cylinders, groups or tracks, or any combination 
depending on the drive) had been selected. This error only occurs when 

the drive itself had not detected the misseek or incorrect head selected. 


NOTE: These errors will only be detected when the operator is running 
Test 4 in the customer data area. This error will <<never>> appear 
when running in the diagnostic area. 


See retry/recovery section for recovery details. 


— rr 


} 
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04048 
b 
I E 
E 0003 
04049 Z 
ER D 
C 
E 0003 


CZUDC SFT ERR 04047 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
DATA OR STATE CLOCK TIMEOUT DURING WRITE 

ATTEMPT attempt 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP_group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


The loss of drive clock occurs when the UDA is clocking data to or 
from the drive through the SERDES. Failure of a werd to be 
clocked in during a 125 millisecond time period triggers a loss of 
drive clock error. 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04048 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
R/W RDY DROPPED DURING WRITE 

ATTEMPT attempt 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP group CYL cylinder 

REAL TIME STAT 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The loss of read/write ready error is detected either before an 
1/0 has begun when trying to send out the real time command or at 
the end of an 1/0 operation when checking for errors. 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04049 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
RCVR RDY DROPPED DURING WRITE 

ATTEMPT attempt 


type bn 

SECTORS FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP_group CYL cylinder 

REAL TIME STAT 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


The loss of drive receiver ready is detected when the UDA is trying 
to send out a real-time read or write command. 


See retry/recovery section for recovery details. 


pe-— -  C - - F 
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04050 


04051 


04052 


04053 


CZUDC_ DEV FTL ERR 04050 ON UNIT = TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
BEGIN/END SET STARTING BLOCK NUMBER GREATER THAN ENDING BLOCK NUMBER 


This is a Test 4 initialization error due to an operator error. Go back 
to the manual intervention questions and check the answers to the 

ge oe set questions. Inhibiting the dropping of units has no effect 
on $s error. 


tig DEV FTL ERR 04051 ri wt 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
OPERATOR ERROR IN ANSWERING NANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
THE BEGIN/END SETS OVERLAP 


This is a Test 4 initialization error due to an operator error. Go back 
to the manual intervention questions and check the answers to the 

aig ge set questions. Inhibiting the dropping of units has no effect 
on this error. 


CZUDC DEV FTL ERR 04052 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
OPE RATOR ERROR IN ANSWERING MANUAL anh me ged QUESTIONS FOR THIS UNIT 
[ GIN/END SET ENDING BLOCK NUMBER EXCEEDS MAXIMUM 

AAAIMUM BLOCK NUMBER ON DEVICE IS maximum_block_number 


maximum_block_number: This is the highest block number the operator 
can specify. 


This is a Test 4 initialization error due to an operator error. Go back 
to the manual intervention questions and check the answers to the 
oe set questions. Inhibiting the dropping of units has no effect 
on this error. 


cree DEV FTL ERR 04053 ON yt 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
DUPLICATE BAD BLOCKS 


This is a Test 4 initialization error due to an operator error. Go back 
to the manual intervention questions and check the answers to the 

om Secs questions. Inhibiting the dropping of units has no effect 

on this error. 
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04054 


04055 


04056 


04057 





CZUDC DEV FTL ERR 04054 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS. UNIT 
BAD BLOCK NUMBER EXCEEDS MAXIMUM. MAXIMUM BLOCK NUMBER 

ON DEVICE IS maximum_biock_number 


maximum _block_sumber: This is the highest block number the operator 
can specify. 


This is a Test 4 initialization error due to an operator error. Go back 
to the manual intervention questions and check the answers to the 

gl eng questions. Inhibiting the dropping of units has no effect 

on Ss error. 


CZUDC DEV FTL ERR 04055 ON UNIT 00 TST "3 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
STARTING CYLINDER GREATER THAN ENDING CYLINDER 


may is a Test 4 initialization error due to an operator error. Go back 

© the manual intervention questions and check the answers to the . 
STARTING AND ENDING CYLINDER questions. Inhibiting the dropping of units 
has no effect on this error. 


CZUDC DEV FTL ERR 04056 ON UNIT 00 TST 04 SUB a PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE x RUNTIME hh:mm 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
RANDOM AND SEQUENTIAL SEEKS CANNOT BE MIXED WITHIN A UNIT 


Error 4056 is an operator error. The error occurs on a multiple subunit 
drive when one subunit is selected to run in random mode, and another is 
selected to run in sequential mode. This mix is not supported, so the 
ay A message is issued. Inhibiting the dropping of units has no effect 
on this error. 


CZUDC DEV FTL ERR 04057 ON UNIT 00 TST 04 SUB os o aenaee 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE x UNTIME hh:mm:s 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
OVERFLOW WHEN CALCULATING THE L/DBN FROM THE GIVEN CYLINDER 

CYLINDER TOO LARGE 


This is a Test 4 initialization error due to an operator error. 

The operator entered a cylinder number phot — converted to a block 
number, the block number exceeded (20258) - Go back 

to the manual interventio: quest tens and check the answers to the 
STARTING AND ENDING CYLINDER questions. Inhibiting the dropping of units 
has no effect on this error. 


SEQ 0068 
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04058 


04059 


CZUDC DEV FTL ERR 04058 ON UNIT 00 TST 04 SUB ee PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE x RUNTIME hh:mm: 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
TRACK EXCEEDS MAXIMUM FOR DEVICE. MAXIMUM IS maximum_track 


maximum_track: This is the highest track number the operator can 
specify. 


This is a Test 4 initialization error due to an operator error. Go back 
to the manual intervention questions and check the answers to the 

ny 3 questions. Inhibiting the dropping of units has no effect 

on this error. 


CZUDC DEV FTL ERR 04058 ON UNIT 00 TST 04 SUB — PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE x RUNTIME hh: 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS. UNIT 
GROUP EXCEEDS MAXIMUM FOR DEVICE. MAXIMUM IS maximum_group 


maximum_group: This is the highest group number the operator can 
specify. 


This is a Test 4 initialization error due to an operator error. Go back 
to the manual intervention questions and check the answers to the 

ag # questions. Inhibiting the dropping of units has no effect 

on this error. 


CZUDC DEV FTL ERR 04059 ON UNIT 00 TST - SUB ae “> XXXXXX 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE « UNTIME hh:mm 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
TWO IDENTICAL TRACKS 


This is a Test 4 initialization error due to an operator error. Go back 
to the manual intervention questions and check the answers to the 

ng SF questions. Inhibiting the dropping of units has no effect 

on this error. 


CZUDC DEV FTL ERR 04059 — wit 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
OPERATOR ERROR IN ANSWERING NANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
TWO IDENTICAL GROUPS 


This is a Test 4 initialization error due to an operator error. Go back 
to the manual intervention questions and check the answers to the 

ay questions. Inhibiting the dropping of units has no effect 

on this error. 


on 
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CZUDC DEV FTL ERR 04062 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER ODM PC: xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
OPERATOR conve IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT 
DBN COMPUTED FROM END CYLINDER GIVEN EXCEEDS MAXIMUM DBN NUMBER ON 
DEVICE = CYLINDER TOO LARGE 


This is a Test 4 initialization error. 

Note that though there may be writeable DBN'’s on the ‘last’ cylinder, 

the read only diagnostic area may start on that same cylinder, and Test 4 
tries to write to the end of the > | tae my that the operator specified. 
Therefore, s ~ aah he the previous cylinder if cylinders must be specified. 
Inhibiting the dropping of units has no effect on this error. 


CZUDC DEV FTL ERR 04062 ON UNIT 00 TST 04 SUB a g XXXXXX 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE x UNTIME hh:mm 
OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS. UNIT 
LBN COMPUTED FROM END CYLINDER GIVEN EXCEEDS MAXIMUM LBN NUMBER ON 
DEVICE = CYLINDER TOO LARGE 


This is a Test 4 initialization error. 

Note that though there may be writeable LBN’s on the ‘last’ cylinder, 

the RCT area may start on that same cylinder, and Test 4 tries to 

write to the end of the cylinder that the operator specified. Therefore, 
specify the prexceus cylinder if cylinders must be specified. 

Inhibiting the dropping of units has no effect on this error. 


crust SFT ERR 04063 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
REAL TIME STATE RECEIVE ERROR DURING WRITE 

ATTEMPT attempt 


bn 
ste Tors FROM INDEX sector TRK track GRP group CYL cylinder 
ORIGIN OF SEEK: GRP_group CYL cylinder 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The real time drive state receive error is detected at the end of an 
1/0 operation and indicates that there was a pulse or parity error 
in the receipt of the drive's state during the I/0 operation. 


See retry/recovery section for recovery details. 


SEQ 0070 


m_ 
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04068 


04069 





CZUDC SFT ERR oer, nl UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC: UDA AT re DRIVE xxx RUNTIME hh:mm:ss 
REAL TIME STATE RECEIVE “ERROR DURING READ 

dng attempt 


ste Tors ot INDEX sector TRK track GRP group CYL cylinder 
ORIGIN SEEK: GRP_group CYL cylinder 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


The real time drive state receive error is detected at the end of an 
1/0 operation and indicates that there was a pulse or parity error 
in the receipt of the drive's state during the I/0 operation. 


See retry/recovery section for recovery details. 


CZUDC HRD ERR 04068 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
UNKNOWN ERROR CODE DURING WRITE 

ERROR CODE RETURNED error_code 


REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 
error_code: This is the error code returned to Test 4 by the UDA 


that Test 4 does not recognize. 


The unknown error code occurs when the UDA returns an error code from 
an operation that Test 4 does not recognize. Possible UDA microcode 
change without Test 4 update. 


See retry/recovery section for recovery details. 


CZUDC HRD ERR 04069 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 

DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
UNKNOWN ERROR CODE DURING READ 

ERROR CODE RETURNED error_code 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


error_code: This is the error code returned to Test 4 by the UDA 
that Test 4 does not recognize. 


The unknown error code occurs when the UDA returns an error code from 
an operation that Test 4 does not recognize. Possible UDA microcode 
change without Test 4 update. 


See retry/recovery section for recovery details. 


SEQ 0071 


nab 


———_—— 
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04071 


04072 





CZUDC SFT ERR 04070 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
TIMEOUT OF SEND 


command type 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


command_type: See section following error 4078 for a description 


If Test 4 tries to send a level 2 command to the drive, and receiver 
ready is deasserted, error 4070 occurs. 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04071 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
TIMEOUT OF RECEIVE 


command_type 
REAL TIME STATE 0003 
STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


command_type: See section following error 4078 for a description 
This error is a failure of the drive to respond to an SDI level 2 
command (see the SDI specification) before the drive-supplied 
command timeout expires. 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04072 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
FIRST WORD RECEIVED WAS NOT START FRAME 
command_type 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 
command_type: See section following error 4078 for a description 


The first word received by the UDA from the drive was not a valid 
message start frame. 


See retry/recovery section for recovery details. 


SEQ 0072 


| CZUDCBO UDA & dH 


USER DOCUMENTATION 
04073 


04074 
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CZUDC SFT ERR 04073 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
FRAMING ERROR ON LEVEL O RECEIVE 


command_type 
REAL TIME STATE 0003 
STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


command_type: See section following error 4078 for a description 


Error 4073 is caused by one or more of the following conditions: 

1) Illegal frame code -- the frame is not a message start, continue, 
or end frame. 2) Illegal sequence of frames -- such as a message 
start frame without ever receiving a message end frame. This can be 
caused by the drive sending a response before the UDA asserts receiver 
ready, or a random hit on the SDI cable that garbles a frame or a bad 
drive transmitter or UDA receiver. 


See retry/recovery section for recovery details. 


CZUDC SFI ERR 04074 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
CHECKSUM ERROR ON LéVEi 0 RECEIVE 


command_type 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 
command_type: See section following error 4078 for a description 
The checksum attached to a —, end frame did not match the checksum 
computed over the level 2 command. This could be caused by a bad drive 
transmitter, bad UDA receiver, incorrectly computed checksum by the 
drive (unlikely) or a random hit on the SDI cable. 


See retry/recovery section for recovery details. 


CZUDC SFT ERR 04075 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
BUFFER SIZE SMALLER THAN RESPONSE 
command_type 
REAL TIME STATE 0003 
STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 
command_type: See section following error 4078 for a description 


The buffer size set aside for the response was not large enough for the 
response received. This is caused by the drive sending a response that 
is incorrect for the request sent to the drive, or the drive sending some 
garbage with the response. 


See retry/recovery section for recovery details. 
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04076 CZUDC SFT ERR 04076 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
RESPONSE OF LEVEL 2 CMD NOT AS EXPECTED 


command type 

EXPECTED RESPONSE expected_response 

RESPONSE RECEIVED response_received 

REAL TIME STATE 0003 

STATUS (R TOL): 1312 1110 0908 0706 0504 0302 0100 


SEQ 0074 


command_type: See section following error 4078 for a description 
expected_response: This is the correct response (HEX) for the command. 
response_received: This is the response received from the drive, (HEX) 


where a 7D is an unsuccessful response. Any other 
ay a 7D for this value indicates a <<VERY>> sick 
rive. 


This is caused by receiving an UNSUCCESSFUL response from the drive, or 
the drive sending some response other than the correct response for the 
request sent to the drive. See the contents of status for the unexpected 


response error (or reason). 
See retry/recovery section for recovery details. 
04077 CZUDC HRD ERR 04077 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
DRIVE NEVER DEASSERTED RECEIVER READY AFTER SEND 
command_type 
REAL TIME STATE 0003 
STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


command_type: See section following error 4078 for a description 


This is caused by the drive not seeing a command sent by 

the UDA. The drive must deassert receiver ready to acknowledge 
that it did see a command via the SDI. If the drive saw only 
part of the command, it would have marked the command as 
unsuccessful. But in this case, the drive did not see any 
of ane, Connene and is now waiting for a command to be sent 

rom the . 





co 
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04078 CZUDC HRD ERR 04078 ON UNIT 00 TST 04 SUB 000 PC: xxxxxx 
DISK EXERCISER DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hh:mm:ss 
UNKNOWN ERROR CODE RETURNED FROM LEVEL 2 RECEIVE 


command type 

ERROR CODE RETURNED  error_code 

REAL TIME STATE 0003 

STATUS (R TO L): 1312 1110 0908 0706 0504 0302 0100 


command_type: See section following error 4078 for a description 


error_code: This is the error code returned to Test 4 by the UDA 
that Test 4 does not recognize. 


The unknown error code occurs when the UDA returns an error code from 
an operation that Test 4 does not recognize. Possible UDA microcode 
change without Test 4 update. 


See retry/recovery section for recovery details. 


NOTE: Errors 4070 - 4078 will become device fatals if attempted 3 times. 
If dropping of units are inhibited, error recovery is the same as 
if the error was a soft error. 


command_type: in errors 4070-4078 command_type is one of the following 
level 2 commands: 


ATTEMPTING TO BRING DRIVE ONLINE 
ATTEMPTING TO ISSUE SEEK 
ATTEMPTING TO GET STATUS 
ATTEMPTING DRIVE CLEAR CMD 
ATTEMPTING TO BRING DRIVE ONLINE 
O CHANGE MODE 
ATTEMPTING ERROR RECOVERY CMD 
SSUE SEEK 


ATTEMPTING TO RECALIBRATE 


The following commands_types occur only during 
initialization, and will cause a device fatal if 
they occur. Inhibiting the dropping of units has no 
effect on these errors. 


ATTEMPTING TO SPIN UP DRIVE 
ATTEMPTING TO GET COMMON CHAR 
ATTEMPTING TO GET SUBUNIT CHAR 


>>> 
a 
sti 
332 
i) 
feng fee bos 
222 
aac 
=m— 


If <<ANY>> error occurs during initialization, <<NO>> testing 
is done on <<ANY>> drive attached to the UDA that the 
initialization erorr occured on. See error number 4016. 





an | 
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SPECIAL DEVICE FATAL (05000) 


CZUDC DVC FTL 05000 ON UNIT 00 TST 002 SUB 000 PC: xxxxxx 

DISK 22222222 DM PC:xxxx UDA AT xxxxxx DRIVE xxx RUNTIME hhh:mm:ss 
UNABLE TO FIND REQUESTED DRIVE FOR TESTING 

THE FOLLOWING IS VISIBLE ON THE PORTS 

UDA PORT 0 == description 

UDA PORT 1 == description 

UDA PORT 2 == description 

UDA PORT 3 == description 


Where 22222zzz is either ‘RESIDENT’, "FUNCION® or ‘EXERCISER’. 
This message is presented when the specified drive 

was not found by test 2, test 3 or test 4 on any of 

the ports. A description of what was each port follows. 


NO DRIVE ATTACHED 
- There is nothing on the port. If there is suppose to be 
a drive on this port, make sure there is an odd number of 
cables between the UDA and the drive and make sure the 
cables are properly attached. 


RCVR RDY NEVER ASSERTED 
- The device on the port did not assert RCVR RDY while 
trying to get state. 


TIMEOUT OF SEND 
- Sending an SDI command timed out. RCVR RDY is not 
asserted. 


TIMEOUT OF RECEIVE 
- Receiving an SDI command timed out. The drive failed 
to goenend to an SDI level 2 command before a timeout 

expired. 


FIRST WORD RECEIVED WAS NOT START FRAME 
- The first word received by the UDA from the drive was 
not a valid message start frame. 


FRAMING ERROR ON LEVEL 0 RECEIVE 
- The device and the UDA are out of sync or an illegal 

frame code (the frame is not a message start, continue, 
or end frame) or illegal sequence of frames. This can 
be caused by the drive sending a response before the 
UDA asserts receiver ready, or a random hit on the SDI 
cable that garbles a frame or a bad drive transmitter 
or UDA receiver. 


CHECKSUM ERROR ON LEVEL 0 RECEIVE 
~- The checksum attached to a message end frame did not 
match the checksum computed over the level 2 command. 
This could be caused by a bad drive transmitter, bad 
UDA receiver, incorrectly conpytes checksum by the 
drive (unlikely) or a random hit on the SDI cable. 


Cc 1 
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RESPONSE LONGER THAN EXPECTED FOR CMD 
- The buffer size set aside for the response was not 
large enough for the response received. This is 
caused by the drive sending a response that is 
incorrect for the request sent to the drive, or the 
drive sending some garbage with the response. 


DRIVE n£, consecutive drive numbers if subunited drive] Cfurther explanation] 
~ A drive was found at the end of the cable. It may be a subunited 
drive, so all the subunit numbers are printed. A further 
explanation may be presented. These further explanations are: 


DRIVE NOT AVAILABLE TO THIS UDA : 
- The drive was found but is not available to this 
UDA. It may be dual ported and the drive is online 
to another controller. 


UNSPINABLE DRIVE 
- The drive is unspinable. The drive may be powered 
up but the RUN/STOP switch may be popped out. 


SEQ 0077 


ade | 
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3.3 TEST 4 RETRY/RECOVERY METHODS 


ECC Error on Disk Read 


ECC DETECTED ERROR, BUT CORRECTION FAILED 
ECC CORRECTIONS EXCEED THRESHOLD 
ECC DETECTED ERROR (If ECC correction disabled) 


Retry/Recovery = The UDA or Test 4 will first re-read the sector 

with the erroneous ECC N times, then N times for each level of 

error recovery the drive supports. The value of N is an SDI drive 
characteristic. This retry mechanism will persist until either 

the recovery level reaches zero or the operation succeeds. 

It should be noted that the manual ; 

intervention questions can disable retries (in this case the recovery 
fails the first time) and disable error correction (i.e., no E 
correction will be performed). ECC correction and retries are 
<<ALWAYS>> enabled when the Test 4 is reading the RCT. 


Recovery success ~ One soft error is counted for the entire operation 
including retries. 


Recovery Failure ~ Test 4 will issue a hard error for the sector. No 
soft errors will be counted. 


Error Detecting Code (EDC) Error 


EDC DETECTED ERROR BUT ECC DID NOT 
ECC CORRECTION SUCCEEDED, BUT EDC DETECTS ERROR 


This error is indicative of a UDA hardware error, either a SERDES 
failure or an undetected RAM failure, or a sector that was written 
with an incorrectly computed EDC. 


Retry/Recovery - The UDA or Test 4 will re-read the sector with 

the erroneous EDC N times, then N times for each level of error 
recovery the drive supports. The value of N is an SDI drive 
characteristic. This retry mechanism will persist until either 

the recovery level reaches zero or the operation succeeds. 

It should be noted that the manual ! ; 

intervention questions can disable retries (in this case the recovery 
fails the first time). Retries are <<ALWAYS>> enabled when the Test 4 
is reading the RCT. 


Recovery success = One soft error is counted for the entire operation 
including retries. 


Recovery Failure = Test 4 will issue a hard error for the sector. No 
soft errors will be counted. 


SEQ 0078 


co 


pe UDA & DISK DRV DIAG MACRO V04.00 29-APR-82 17:36:04 PAGE By” 


USER DOCUMENTATION 


SDI Level 2 and Asynchronous Errors 


The SDI level 2 errors are as follows: 


cooooo 


Packet acknowledge failure - 

Level 2 commana error response, "DE" bit set 

Level 2 command error response, ‘'PE'' or RE bit set 
Receipt of erroneous drive response 

Seek complete timeout 

Asynchronous drive errors 


Level 2 errors are always retried, even if retries are disabled in 
the manual intervention questions. 


In the following retry/recovery algorithms, the Test 4 ‘Generic error 
recovery’ is the following steps: 


Ve 
2. 


Issue online command 


Get status 

2a. If the port, run or spindle ready (PS, RU or SR) bit is 
deasserted, an Immediate device fatal error is reported 
and the unit and all its subunits are dropped from testing. 

2b. If the recalibrate requested (RR) bit is set, Test 4 will 
issue a RECALIBRATE, then SEEK <<AFTER>> generic error 
recovery is complete. 

2c. If the drive error (DE) bit is set, Test 4 will issue a SEEK 


<<AFTER>> generic error recovery is complete. 


If no drive errors, go to 5 
Send DRIVE CLEAR command 
Change mode 


If the 
just to get Test 4 to issue a level 


drive's timeout expires once, so the drive asserts attention 


error recovery. However, since the timeout expiring is not an error, 
no error message is issued. 


2, Test 4 will go through the above 
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Packet Acknowledge Failure 


TIMEOUT OF SEND 
TIMEOUT OF RECEIVE 


The timeout of send occurs when the UDA attempts to send a level 2 
command to the drive, but the drive's receiver ready is not asserted. 
Timeout of receive is a failure of the drive to respond to an SDI 
level 2 command (see the SDI specification) before the drive-supplied 
command timeout expires. These errors are grouped together because 
their recoveries are the same. 


Retry/Recovery - UDA = The steps listed below are performed. 


1. The drive is initialized. 
2. An SDI GET STATUS command is issued. 
3. If the status obtained in the previous step indicated 


error conditions, these error conditions are resolved and 
then cleared by an SDI DRIVE CLEAR command. 


4. An SDI SEEK command is issued. 
* The command is retried. 


Retry/Recovery = Test 4 = The steps listed below are performed. 


1. The drive is initialized 

2. Test 4 Generic error recovery is performed 
3. An SDI SEEK command is issued. 

4. The command is retried. 


Recovery success = One soft error is counted for the entire operation 
including retries. 


Recovery Failure = The above sequence will be repeated : 
two times and, if the failure persists, the Test 4 will issue a device 
fatal error and the drive and all its subunits will be dropped. 

It should be 

noted that the verry strategy for SDI level 2 errors involves 

issuing additional level 2 commands. The retry count is the sum 

of all retries on all SDI level 2 commands, including those 

commands issued in recovery attempts. 





SEQ 0080 


] 
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Level 2 Command Error Response - ‘‘DE'' Bit Set 


RESPONSE OF LEVEL 2 CMD NOT AS EXPECTED 
SEEK RECEIVED UNSUCCESSFUL RESPONSE 


An UNSUCCESSFUL response to a level 2 command, with the 'DE'' bit 
set in the status response, notifies the Test 4 that a drive | 
error was detected (or occurred) in connection with the execution 
of the SDI command. 


Retry/Recovery = UDA = The steps listed below are performed. 
Te An SDI GET STATUS command is issued. 


re The drive error is cleared by an SDI DRIVE CLEAR command 
and a SEEK command is issued for the cylinder where the 
drive was positioned when the error was reported. 


FF The command is retried. 
Retry/Recovery - Test 4 - The steps listed below are performed. 


1. Test 4 Generic error recovery is performed 
Note that because the ‘'DE’’ bit is set, Test 4 generic error 
recovery will issue a SEEK (see generic error recovery) 


Ze The command is retried 


Recovery success = One soft error is counted for the entire operation 
including retries. 


Recovery Failure = The above sequence is repeated two , 
times and, if the failure persists, the Test 4 will issue a device 
fatal error and the drive and all its subunits will be dropped. 
Note that the 

poery strategy for SDI level 2 errors involves issuing additional 
level 2 commands. The retry count is the sum of all retries on 
all SDI level 2 commands, including those commands issued in 
recovery attempts. 
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Level 2 Command Error Response - ‘‘PE’' or ‘RE’ Bit Set 


RESPONSE OF LEVEL 2 CMD NOT AS EXPECTED 
SEEK RECEIVED UNSUCCESSFUL RESPONSE 


An UNSUCCESSFUL response to a level 2 command with the ‘PE"’ or 
"RE" bit set in the status response notifies the Test 4 that 

the command either was not appropriate for the state of the drive, 
or that the command contained invalid arguments. 


Retry/Recovery = UDA = The steps listed below are performed. 


Ts An SDI GET STATUS command is issued 
as The drive error is cleared by an SDI DRIVE CLEAR command. 
> The controller verifies the state of the drive and, if 


possible, retries the level 2 command. Otherwise, the 
UDA notifies the host and bypasses subsequent retries. 


Retry/Recovery - Test 4 = The steps listed below are performed. 
iP Test 4 Generic error recovery is performed 
2. The command is retried 


Recovery success = One soft error is counted for the entire operation 
including retries. 


Recovery Failure - The above sequence is repeated two : 
times and, if the failure persists, the Test 4 will issue a device 
fatal error and the drive and all its subunits will be dropped. 
Note that the retry ; , 

strategy for SDI level 2 errors involves issuing additional level 
2 commands. The retry count is the sum of all retries on all SDI 
soeee : commands, including those commands issued in recovery 
attempts. 





SEQ 0082 
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Receipt of an Erroneous Drive Response 


FIRST WORD RECEIVED WAS NOT START FRAME 
FRAMING ERROR ON LEVEL 0 RECEIVE 
CHECKSUM ERROR ON LEVEL 0 RECEIVE 


ER THAN RESPONSE 
UNKNOWN ERROR CODE RETURNED FROM LEVEL 2 RECEIVE (hard error) 


The first word not start frame error is caused when the UDA does not see a 
valid message start frame as the first frame received from the drive. 

The framing error is caused by the UDA receiving an illegal frame 

code =~ the frame is not a message start, continue, or end frame or Illegal 
sequence of frames -- such as a message start frame without ever receiving 
a message end frame. The checksum error occurs when a message end frame 
checksum did not match the checksum computed over the Level 2 command. 

The buffer size smaller than response error occurs when the buffer set 
aside for the response was not large enough for the response received. 

The unknown error code is returned when the UDA returns an error code 

that the Test 4 does not recognize. These errors are grouped together 
because their recoveries are the same. 


Retry/Recovery = UDA = The steps listed below are performed. 
Ve An SDI GET STATUS command is issued. 


2. If the status obtained in the previous step indicated 
error conditions, these error conditions are resolved and 
then cleared by an SDI DRIVE CLEAR command. 


3. The command is retried. 

Retry/Recovery - Test 4 = The steps listed below are performed. 
1. Test 4 Generic error recovery is performed 

2. The command is retried 


Recovery success - One soft error is counted for the entire operation 
including retries. 


Recovery Failure = The above sequence is repeated two : 
times and, if the failure persists, the Test 4 will issue a device 
fatal error and the drive and all its subunits will be dropped. 
Note that the 

retry strategy for SDI level 2 errors involves issuing additional 
level 2 commands. The retry count is the sum of all retries on 
all SDI level 2 commands, including those commands issued in 
recovery attempts. 





SEQ 0083 
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Seek Complete Timeout 


ATTN ASSERTED DURING SEEK == ERROR OR LOGGABLE INFORMATION 
SEEK DID NOT COMPLETE, NEITHER ATTN OR R/W RDY WAS ASSERTED 


This error occurs when the drive fails to assert READ/WRITE READY, 
indicating the successful completion of a seek, or asserts the SDI 
ATTENTION signal without asserting the READ/WRITE READY signal, 
indicating the unsuccessful completion of a seek. 


Retry/Recovery = UDA = The steps Listed below are performed. 
Re An SDI GET STATUS command is issued. 


2. If the status obtained in the previous step indicated 
error conditions, these error conditions are resolved and 
then cleared by an SDI DRIVE CLEAR command. 


3. The SEEK is retried. 

Retry/Recovery - Test 4 = The steps listed below are performed. 
1. Test 4 Generic error recovery is performed 

2. The SEEK is retried 


Recovery success = One soft error is counted for the entire operation 
including retries. 


Recovery Failure = The above sequence is repeated two . 
times and, if the failure persists, the Test 4 will issue a device 
fatal error and the drive and all its subunits will be dropped. 
Note that the . , = 

retry strategy for SDI level 2 errors involves issuing additional 
level 2 commands. The retry count is the sum of all retries on 
all SDI level 2 commands, including those commands issued in 
recovery attempts. 





SEQ 0084 
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Asynchronous Drive Errors 


ATTN ASSERTED UNEXPECTEDLY, ASYN DRIVE ERROR OR LOGGABLE 
INFORMATION == THIS IS AN <<UNCOUNTED>> SOFT ERROR 


Asynchronous drive errors are those errors reported by the drive 
which are not related to a level 2 or command. These errors are 
reported 4 the drive using the SDI ATTENTION signal. Examples 
are OFF CYLINDER and HDA OVERTEMPERATURE errors. Drive errors are 
reported to the controller by the ‘DE'’ or ‘WE’ bit being set in 
the error byte in the status response. 


Retry/Recovery - UDA = The steps listed below are performed. 

le An SDI GET STATUS command is issued. 

Be The drive error is cleared by an SDI DRIVE CLEAR command 
and, if the error is not ‘WE’, a SEEK command is issued 
for the cylinder where the drive was last positioned. 

Retry/Recovery - Test 4 - The steps listed below are performed. 

Ne Test 4 Generic error recovery is performed 

2. A SEEK is issued 


NOTE: A ‘WE*’ is a write on a write protected drive; Test 4 detects 
this in a different manner, so ‘WE'' will never be set. 


Recovery Failure - 


NOTE: There is a difference between the UDA in controller mode and 
the Test 4 for this type of error. 


The UDA in controller mode will repeat the above sequence 
two times and, if the drive error persists, the drive would 
be marked as offline. 


Test 4 will <<NOT>> drop the drive after two retries. Instead, 
the drive will be dropped due to a side affect of such an 
error: A seek never completing, (causing a device fatal error) 
or Spindle ready dropping (causing a device fatal error). 





SEQ 0085 


om 
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Drive 1/0 Errors 


The drive 1/0 errors occur either during the header compare 
process (i.e., before 1/0 actually begins) or during the I/0 
operation itself. They are as follows: 


Header not found 

Seek or head select error 

Data sync timeout ¥ 

Data or state clock timeout during operation (read/write) 
Receiver ready dropped + ton | operation (read/write) 
Read/write ready dropped during operation (read/write) 
SERDES overrun error c 

Drive failed to execute select track and (read/write) 
Real time state receive error 


ooooo0oo0oo0°0cd0 


Header not found (header compare error) 
HEADER NOT FOUND DURING (read/write) 


This error occurs when the header compare routine fails to find 
the desired header (or a revectored version of the desired header) 
in two disk revolutions. 


Retry/Recovery = UDA and Test 4 = Failure to find the desired header 

in two rotations of the disk will cause the Test 4 to search the 
Replacement and Caching Table (RCT) to check if the logical block 
number has been replaced. If a match is found, the Test 4 will perform 
the desired operation on the revectored block. Enabling/disabling 
retries has no affect on this operation. 


Recovery success - No error is reported or counted. 


Recovery Failure - A hard error (header not found) is reported. 


crn 
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Seek or head select error (Positioner Error) 

SEEK OR HEAD SELECT ERROR DETECTED DURING (read/write) 

This error occurs when the header comparison routine determines 

that the drive is positioned at the wrong cylinder and that the 

drive has not detected a seek error. 

NOTE: The header comparison routine is active <<ONLY>> in the 
customer data area. This error will never be detected 
in the diagnostic area. 

Retry/Recovery = UDA = The steps listed below are performed. 

Ve An SDI GET STATUS command is issued. 

2. If the status obtained in the previous step indicated 


error conditions, these error conditions are resolved and 
then cleared by an SDI DRIVE CLEAR command. 


3. An SDI RECALIBRATE command is issued. 
4. An SDI SEEK command is issued. 
Se The 1/0 operation is retried. 


Retry/Recovery - Test 4 = The steps Listed below are performed. 


1. Test 4 Generic error recovery is performed 

2. An SDI RECALIBRATE command is issued. 

3. An SDI SEEK command is issued. 

4. If retries are disabled, Immediate recovery failure. 


Retries are <<ALWAYS>> enabled when the Test 4 
is reading the RCT. 


Sa The I/0 operation is retried. 


Recovery success = One soft error is counted for the entire operation 
including retries. 


Recovery Failure = The above sequence is repeated two 


times and, if a drive I/0 error persists, a hard error is reported for 
the sector. No soft errors are counted. 
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Data Sync Timeout Error 
DATA SYNC TIMEOUT DURING READ 


This error occurs on a read operation after the correct header has 
been found and the UDA times out waiting for the data sync word. 


Retry/Recovery = UDA = The steps listed below are performed. 

Te An SDI GET STATUS command is issued. 

Be If the status obtained in the previous step indicated 
error conditions, these error conditions are resolved and 
then cleared by an SDI DRIVE CLEAR COMMAND. 

ie An SDI SEEK command is issued. 

4. The read operation is retried. 


Retry/Recovery - Test 4 = The steps listed below are performed. 


qe Test 4 Generic error recovery is performed 
2. An SDI SEEK command is issued. 
3. If retries are disabled, Immediate recovery failure. 


Retries are <<ALWAYS>> enabled when the Test 4 
is reading the RCT. 


4. The read operation is retried. 


Recovery success = One soft error is counted for the entire operation 
including retries. 


Recovery Failure = The above sequence is repeated two 


times and, if a drive 1/0 error persists, a hard error 
is reported for the sector. No soft errors are counted. 
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Data or state clock timeout (Loss of Drive Clock) 
Peceiver ready failure (Loss of Drive Receiver Ready) 


DATA OR STATE CLOCK TIMEOUT DURING (read/write) 
RCVR_RDY DROPPED DURING (read/write) 

COULD NOT SEND SELECT TRACK AND (read/write) CMD OR 
HEADER SYNC TIMEOUT WITH INVALID STATE 


The loss of drive clock occurs when the UDA is clocking data to or 
from the drive through the SERDES. Failure of a word to be 

clocked in during a 125 millisecond time period triggers a loss of 
drive clock error. The loss of drive receiver ready is detected 

when the UDA is trying to send out a real-time read or write 

command. Unable to select track and read or write occurs when the 
UDA attempts to send the select track and read/write level 1 cmd, 

but receiver ready is deasserted or the state is invalid so 

cannot send the command (the SERDES could also be broken so it’s unable 
to send the command). The same error is generated if the UDA gets a 
header sync timeout, and when it looks at the drive's state, it is 
either invalid or reciever ready is deasserted (header sync timeout is 
<<NOT>> a error == it’s quite normal on a high-density disk). These 
errors are grouped together because their recoveries are the same. 


Retry/Recovery - UDA = The steps listed below are performed. 


Ve The drive is initialized. 
2. An SDI GET STATUS command is issued. 
Be If the status obtained in the previous step indicated 


error conditions, these error conditions are resolved and 
then cleared by an SDI DRIVE CLEAR command. 


4. An SDI SEEK command is issued. 
5. The I/0 operation is retried. 


Retry/Recovery - Test 4 = The steps listed below are performed. 


1. The drive is initialized 

2. Test 4 Generic error recovery is performed 

5. An SDI SEEK command is issued. 

4. If retries are disabled, Immediate recovery failure. 


Retries are <<ALWAYS>> enabled when the Test 4 
is reading the RCT. 


is The 1/0 operation is retried. 


Recovery success = One soft error is counted for the entire operation 
including retries. 


Recovery Failure = The above sequence is repeated two 
times and, if a drive 1/0 error persists, a hard error 
is reported for the sector. No soft errors are counted. 


SEQ 0089 


CZUDCBO UDA & DISK DRV DIAG MACRO V04.00 29-APR-82 17:36:04 PAGE 90 SEQ 0090 
USER DOCUMENTATION 


Read/Write ready dropped (Loss of Drive Read/Write Ready) 
SERDES Overrun Error : 
Real Time State Receive Error (Real Time Drive State Receive Error) 


R/W RDY DROPPED DURING (read/write) 

SERDES OVERRUN ERROR DURING READ 

REAL TIME STATE RECEIVE ERROR DURING (read/write) 
UNKNOWN ERROR CODE DURING (read/write) 


The loss of read/write ready error is detected either before an 

1/0 has begun when trying to serd out the real time command or at 
the end of an 1/0 operation when checking for errors. The SERDES 
overrun error is detected on a read operation and is indicative of 
a drive whose transfer rate is greater than 23 MHZ or a broken 
SERDES. The real time drive state receive error is detected at 

the end of an 1/0 operation and indicates that there was a pulse 

or parity error in the receipt of the drive's state during the 1/0 
operation. The unknown error code is returned when the UDA returns 
an error code that the Test 4 does not recognize. They are grouped 
together because their recoveries are the same. 


Retry/Recovery = UDA = The steps listed below are performed. 

Se An SDI GET STATUS command is issued. 

2. If the status obtained in the previous step indicated 
error conditions, these error conditions are resolved and 
then cleared by an SDI DRIVE CLEAR command. 

Se An SDI SEEK command is issued. 

4. The 1/0 operation is retried. 


Retry/Recovery = Test 4 = The steps listed below are performed. 


ve Test 4 Generic error recovery is performed 
Be An SDI SEEK command is issued. 
Fe If retries are disabled, Immediate recovery failure. 


Retries are <<ALWAYS>> enabled when the test 4 
is reading the RCT. 


4. The read operation is retried. 


Recovery success = One soft error is counted for the entire operation 
including retries. 


Recovery Failure = The above sequence is repeated two 
times and, if a drive 1/0 error persists, a hard error 
is reported for the sector. ‘No soft errors are counted. 
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3.4 DEC STANDARD 166 EXCERPTS 


3.4.1 THE REPLACEMENT AND CACHING TABLES 


The Replacement and Caching Tables record the locations of all revectored LBN 
sectors and the status of each RBN on the unit. Each copy of the table is 
organized in re RBN order, with an entry for each RBN sector on the 
unit. There are ‘'n'’ copies of the table on the unit, where ‘'n’’ is a device 
characteristic. The tables are stored at the high address end of the LBN area 
of the unit. Table entries (and RBNs) are allocated via a hash algorithm 
described later. 


Replacement And Caching Table Format - 


Each entry in the Replacement and Spee Table represents an RBN on the unit. 
The table is ordered in ascending RBN order. Thus the first entry corresponds 
to the first RBN on the unit, etc. The size of each —y of the table may 
exceed that required to contain an Regt | for each RBN on the unit since 
additional entries may be required to align the table so that adjacent copies 
can begin on a track boundary. Entries that do not correspond to RBNs on the 
unit are called ‘null entries’; there is always at least one null entry at 
the end of the RCT. ALL other entries past this last null entry are 


undefined. 
NOTE 
The RCT pad area is controller specific and 
should never be accessed by the host. ; 
The format of a replacement block descriptor in the Replacement and Caching 
Tables is: 


! LBN (low) ! 


$¢eoen ne Seer e nwt one eee mete to mee me mem ete wes emeecn eon wae seaeae a 


! (CODE ! LBN (high) ; 


¢ ww een eterno e ee See eee ween ee oes eens wane nee See me ce ao er ep ee ce ee 


! 4 DItS!<q-------= wen-==12 bi ts---------------------->! 


a aed 
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Where: 
LBN is the Logical Block Number of a revectored LBN sector. 
CODE is one of the following octal values: 
00 = Unallocated (empty) replacement block. 
02 - Allocated replacement block = primary RBN. 
03 - Allocated replacement block = non-primary RBN. 
04 = Unusable replacement block. 
* 05 = Alternate unusable replacement block 
10 = Null entry = no corresponding RBN sector. 
For codes 00, 04, and 10 the LBN field is always zero. 


NOTE 
* This code is reserved. Programs should treat 
this code as if it were code 04. 
—— with no distinction between primary and secondary RBN's 
must use: 


1. Code 02 if the replacement block can be retrieved with little 
degradation of performance for all blocks. 


2. Code 03 if accessing the replacement block has a large impact on 
performance for all blocks. 


seo 0092 


pot ee 
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3.4.2 FCT Structure 


Each copy of the FCT is composed of one volume information block, one 512 byte 


format table, 


one 576 byte format table, and one subsystem temporary storage 


th pelea amongst the alignment pads). An FCT copy has the following 
ormat: 





: volume : 

: information ! SECTOR 0 
; block : 

frm Oe nO TOMO Mme mame me 

: 128 bad block : 

; descriptors ! SECTOR 
! 512 mode : 

femme mama wea me moe See $ 

! 128 bad block } 

! descriptors ' SECTOR 2 
! 512 mode : 


oh me se ou oe om te me a oe ee oe oe ee nm ee 


— 


Pee vee nen en man ceeneweee =-+ 

! 128 bad block : 

: descriptors ! SECTOR m 

: 576 mode : 

form m eee wem none wwe we ne en t¢ 

: 128 bad block ‘ 

: descriptors ! SECTOR m+1 
; mode : 


° 
° 
' 
pom om ee  e ee SH 
' 


} 128 bad block 

! descriptors ! SECTOR p 

$ mode ! 

§ subsystem ! 

i scratch ' SECTOR p+1 
: storage : 


¢oeece weweccocceccccccens 
! subsystem ‘ 
! scratch ' SECTOR Fet-1 
; storage ; 


Pose enw eco eee ae cee wee me $e 


SEQ 0093 


[wo nn ee 
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The XBN area itself is eo formatted to contain 512 byte sectors. The 
calculations for m and p are 


m z= ((((Le*get#r)+1)/2)+127)/128 
p := 2em 


Sector 0 contains various volume identification information. The format is: 


! media mode ! 
! ! WORD 0 
kee eS 
! formatting instance ! 
$ number ! WORD 1 


fee wee wm en een meee meno nee + 


! volume serial number ! 
i least significant word! WORD 2 
penalised Randa ta + 
! volume serial number ! 
! ! WORD 3 
presse nner we mene ee ome es + 
! volume serial number ! 
! ! WORD 4 
tose renee sas weaenweonan ea } 
! volume serial number ! 
! most significant word ! WORD 5 
pow ee ne oe ee Se ee Se me $f 
! date that volume was ! 
i first formatted (low) ! WORD 6 


iomneeemnantel 


! date that volume was 


' first formatted ! WORD 7 
former ceo nae See ea meee $ 
! date that volume was ! 
! first formatted ! WORD 8 


fw ee oma esc eee ewe nme cemena $ 


! date that volume was ! 
! first formatted (high)! WORD 9 
tee me ewe eee eee wen eee et 
! date of most recent ! 
‘volume formatting (low): WORD 10 
pewmwmecaneomomaeoeaemaanes 
! date of most recent ! 
! volume formatting : WORD 11 
i ee a 
: date of most recent ! 
: volume formatting : WORD 12 
temo meamremrecaanewae canoe ne 
! date of most recent ! 
:volum formatting thigh): WORD 13 


! number of used entries! 
! in 512 table (low) ! WORD 14 
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pase rw oon oe ase an ome eee ne + 


: number of used entries! 

! in 512 table (high) ! WORD 15 
fee men an anean eee enn cnc me $ 

! number of used entries! 

! in 576 table (low) ! WORD 16 
tem mom mmrewre men meee ome eee $ 

! number of used entries! 

! in 576 table (high) ! WORD 17 
Pere see ane ase ae awesome $ 

: XBN of scratch area ! 

! in this copy (low) H WORD 18 
fawn aneewmo rn en mene ne means 

! XBN of scratch area ! 

i in this copy (high) | WORD 19 


jetmnauanenaameennnt 


!' size of scratch area ! 


! in this copy ! WORD 20 
‘Waeitatpemeerne ar 
° zeros ° 
i i 
emanate 
te i WORD 255 


Where: 


WORD 0: ‘Media Mode’’ - is ‘126736'' for a 512 byte format and ‘'074161"' 
for a 576 byte format. During formatting the media mode word is set to 
zero. 
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4.0 PERFORMANCE AND PROGRESS REPORTS 


At the end of each pass, the pass count is ogee along with the total 
number of errors reported since the diagnostic was started. The ‘EOP’ 
switch can be used to control how often the end of pass message is 
printed. Section 2.2 describes switches. 

A statistical report will automatically be printed yt tee gy 
(approximately every fifteen minutes) and at the end of test #4. It 
can be suppressed ~ gt hp the Inhibit Statistical Report flag (e.g. 
START/FLAGS:ISR). This is the same report that can be printed on 
demand with the PRINT command. 


During tests 1, 2, and 3, the report will look Like the following 
example: 


TEST 1 IN PROGRESS RUN TIME 2:24:10 


During test #4, the report will contain statistics on each drive for 
the current pass of the test; for example: 


TEST 4 IN PROGRESS RUN TIME 2:24:10 


UNIT DRIVE SERIAL-NUMBER SEEKS MBYTES MBYTES HARD SOFT ECC 
0 002 x1000 - a —_— one 


0 1 6 
1 4 7342102112 14 42 29 0 2 
Explanation of each column: 


o— 


UNIT The unit number (number of HW P-table). 
DRIVE The drive number (the number uated appears on the 
“unit plug’’ on the front of the disk drive). 

SERIAL-NUMBER The decimal serial number of the disk drive. 

SEEKS x1000 The decimal number of seeks perreegee by this drive 
during this pass of test 4. Multiply value by 1000. 

MBYTES READ The number of mega~bytes (million bytes) read by this 
drive during this pass of test 4. It is this value 
that is used to optionally drop a drive by the READ 
TRANSFER LIMIT software question. . 

MBYTES WRITTEN The number of mega~bytes written by this drive during 
this pass of test 4. ; 

HARD ERRORS The number of hard error reports printed for this 
drive during this pass of test 4. It is this value 
that_is used to optionally drop a drive by the ERROR 
LIMIT software question. 
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SGFT ERRORS 


ECC 


The number of soft errors reported for the drive 
during this pass of test 4. A soft error is any error 
condition that resulted in a retry operation that 
eventually succeeded in Pe from the error 
condition. One soft error is counted even though 
several retry attempts may be made and does not 
correspond to the number of soft error reports 
printed. To see the soft error reports, you must 
change the default answer to the SUPPRESS PRINTING 
SOFT ERRORS software question. 

The number of times data read from the drive was 
modified using the error correction code (ECC) and 
resulted in a matching error detection code (EDC). 


SEQ 0097 


—— a 


-—_-—--— 
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5.0 TEST SUMMARIES 


The UDA Host Resident Diagnostic consists of one PDP-11 diagnostic 
supervisor program that runs in the PDP-11 processor and four programs 
that run in the UDA’s buffer memory through an interpreter called 

the “diagnostic machine’ which resides in the UDA. The PDP-11 progres 
mainly is responsible for downline loading the ‘“‘diagnostic machine’’ 
programs into the UDA and egg hn mye execution. The ‘‘diagnostic 
machine’’ program controls the testing from that point by requesting 
the PDP-11 processor to supply information, print error messages and 
update statistics. The ‘‘diagnostic machine’’ program informs the PDP-11 
processor when a test is complete. 


The four ‘‘diagnostic machine’’ programs are in the ZUDDBO.PAK data file 
which is read from the XXDP+ system device by the PDP-11 program. The 
data file comes with listings of each program. 


5.1 TEST # 1 = UNIBUS ADDRESSING TEST 


The purpose of test #1 is to complete the testing of the Unibus 
interface in the UDA. The UDA resident diagnostic is not able to 
completely test the Unibus interface because communication with the 
PDP=11 processor is necessary. Specifically, this test will: 


1. Check that every address line on the Unibus can be 
driven to both one and zero states. 


2. Check that the UDA can interrupt the PDP-11 processor 
at the proper priority level and vector. 


3. Exercise the Unibus interface by transferring blocks of 
data to and from Unibus memory. 


This test assumes that the following are being tested by the UDA 
Resident Diagnostic: 


1. All data bits can be written and read correctly. 
2. NPR cycles can be executed correctly. 


Test 1 is divided into six subtests. One at a time, each UDA selected 
for testing will run each subtest. 


Subtest 1 makes sure that the UDAIP and UDASA registers are existant 


and runs the first part of the UDA's resident diagnostics. 


Subtest 2 initializies the UDA into diagnostic loop mode. 
In this mode any value written into the UDASA is echoed in the UDASA. 


SEQ 0098 


7 
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In subtest 3, the UDA is initialized with interrupts 

enabled. The vector address and priority level will be determined 

solely from the answers to the hardware questions. If the hardware 

vectors to the wrong address, it is impossible to determine the 

res. lt. A descriptive error message of the problem will not occur (the 

9 y, hang or an unrelated message may occur). 

herefore, the re nee ‘TESTING INTERRUPT ABILITY OF UDA AT ADR xxxxxx 
C xxx...'’ isprinted just before the UDA is requested to cause 

an interrupt and the word ‘COMPLETED’ is printed (on the same 

Line) when the interrupt test is completed. If the word ‘'COMPLETED'’ 

does not follow the first message, it should be apparent that the 

interrupt caused the wm tana or processor to go astray. The 

priority level of the interrupt request is also verified. 


Subtest 4 and 5 initializes the UDA using different sizes of 

the host communications area. The different sizes of the host 
communications area are supplied to allow the UDA Resident 
Diagnostic to do the most Unibus address testing possible. 
Interrupts are disabled. Any UDA Resident Diagnostic errors 

will be reported. Subtest 4 initializes the UDA with the smallest 
ring buffer size possible. Subtest 5 initializes the UDA with 

a large ring buffer area. 


Pre ram or processor ma 


Subtest 6 downline loads a ‘diagnostic machine’’ program into the UDA. 
The “‘diagnostic machine’’ program is downline loaded from the memory 
space included in the host communications area when the UDA was first 
initialized. The UDA Resident Diagnostic has already verified that 

it can access these | addresses, so the downline load command 
rene roa deanaie properly. The ‘diagnostic machine’’ program is then 
started. 


The “diagnostic machine’’ program asks the PDP-11 program to fill 

free memory (that memory available to the PDP-11 weer ee that is not 
being used by the program or the Runtime Services) with an addressing 
pattern and report the location and size of the free memory. Every 
location of free memory is read and the data checked. Then, one 

by one, each address line is tested as follows: 


1. Determine a test address by taking the first address of free 
memory and complimenting the address bit to be tested. 


Nm 
. 


Read from the test address. 


Ww 
. 


If a non-existant memory error occurs, the test is complete. 


s 
e 


Write all ones to the first address of free memory then read 
from the test address. If data read is not all ones, then 
test is complete. 


5. Write zeros to the first address of free memory then read 
from the test address. If data read is not zeros, then test 
is complete. 


6. Report Unibus addressing error. 


SEQ 0099 
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When all address bits have been tested, then block transfers to and 
from memory are tested with different data patterns. This data 

is transferred at the rate disk data is transferred to and from 
memory during normal UDA operation. 


The next UDA selected for —— is then be tested in the same 
manner. When all UDAs have been tested, test #1 ends. 


5.2 TEST # 2 = DISK RESIDENT DIAGNOSTIC TEST 


The purpose of test #2 is to execute the diagnostics that run in each 
disk drive. These oper programs . be resident in the disk 
drive or require downline loading from the ZUDDBO.PAK data file. 
(There currently are no disk drives that require downline loading and 
no such files exist in the ZUDDBO.PAK file. This program is Gooigned 
such that they can be easily added in a future release.) This UD 
diagnostic program only knows the procedure to execute the disk 

Ne hp tag diagnostics and how to determine whether a test passed or 
ailed. 


One at a time, each UDA selected for testing is_ initialized and a 
“diagnostic machine’ program downline loaded. The ‘‘diagnostic 
machine’’ program asks what drives are to be tested, then issues 
several commands to the disk drive and check for the correct response 
from the drive. This should serve as a good indicator that the UDA 
and disk drive can communicate. 


A DIAGNOSE command is then issued to the drive to request the drive 

run all of its diagnostics. If the disk drive requests a downline load 

of a drive diagnostic, the diagnostic program is read from the XXDP+ 
load device, downline loaded into the disk drive and started. There is 

» A to the number of downline loads that can be requested by a 
rive. 


If the ‘Manual Intervention Mode’’ software question was answered ‘N'' 
(default) testing proceeds to the next drive. When all drives on the 
UDA have been tested, the next UDA selected for coos ing is tested in 
the same manner. When all UDA's have been tested, test #2 ends. 


If the ‘Manual Intervention Mode’’ software question was answered ‘'Y'', 
an interactive mode is entered to allow the operator to perform 
diagnostic activities on the disk drive as desired. The Service — 
Manual for the disk drive must be used to determine what diagnostic 
capabilities are available. 
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First, a brief description of available commands is printed as 
follows: 


TEST #2 MANUAL INTERVENTION ON UNIT xx UDA AT xxxxxx DRIVE xxx 
TO WRITE AND READ MEMORY: 

W DATA REGION OFFSET 

R REGION OFFSET 
TO RUN A DIAGNOSTIC: 


R 
TO_ EXIT QUESTIONING: 
DATA, REGION AND OFFSET ARE HEX VALUES. 


Commands may be typed after the question mark prompt. Each command 
is processed as entered and results displayed immediately. The exit 
command will allow the diagnostic to proceed. 


Read and write commands remember the region and offset values. 
Successive read and successive write commands automatically increment 
to the next offset if the — and offset values are not typed. If a 
region is typed but not an offset, offset zero is used. 


Examples: 

-F W FF FFFC 4 

7. WwW 02 

| R FFFC 4 

‘ . FFFC 0004/ FF 
; FFFC 0005/ 02 

$- ¥ 21 FFFC 


FFFC 0000/ 21 


Command 1 writes one byte (FF) into region FFFC, offset 4. Command 2 
writes one byte (02) into the next byte - region FFFC, offset 0005. 

Commands 3 and 4 read the bytes back. Command 5 writes one byte (21) 
into the first byte of region FFFC. Command 6 reads back that byte. 


The diagnose command remembers the region from previous diagnose 
commands only, because the region containing the diagnostic is 
generally not the same region used to write parameters or read 
Aceon - the diagnostic returns any data, the data is printed 
immediately. 





a 
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5.3 TEST # 3 = DISK FUNCTION TEST 


The purpose of test #3 is to functionally test the disk drive. On a 
drive that is well diagnosed by its disk resident diagnostics (exe- 
cuted by test #2) these functional tests will have little value. On a 
drive that has no or minimal resident diagnostics, these functional 
tests will have more value. 


Test #3 starts by initializing each UDA selected for testing and then 
downline loading a ‘‘diagnostic machine’’ program into each UDA. Once 
all UDAs have been started, the PDP-11 program responds to requests 
— iy ly When ail the UDAs have indicated the end of testing, 
es ends. 


The "‘diagnostic machine’’ program performs the following functions on 
each drive: 


1. Issue a DRIVE CLEAR command. 
2. Issue RECALIBRATE command. 


3. Issue a CHANGE MODE command to enable diagnostic cylinder 
on ee set the drive to 512 byte sector size, and write 
protect. 


4. Issue INITIATE SEEK command to last diagnostic cylinder. 
5. Read all factory formatted sector headers. If no headers on 


a track can be read, report the error, otherwise continue. 


6. Starting with cylinder 0, group 0 and incrementing through 
every cylinder on the disk, seek to a group, read a 
header on track 0 and then seek to the factory formatted 
diagnostic cylinder. Read from the diagnostic cylinder to 
verify disk positioned correctly. 

7. Attempt to write on the first diagnostic cylinder while write 

protected. 


8. Issue a CHANGE MODE command to enable formatting operations 
and disable write protect. 


9. Format all writable DBNs in 512 byte format. 


10. Write and read several data patterns to each writable DBN. 
Report an error if all DBNs on one track have an error. 


11. Send invalid SDI level 2 and level 1 commands and check the 
results. 


12. Issue a DISCONNECT command. 


SEQ 0102 


pore a 
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5.4 TEST # 4 = DISK EXERCISER 


simi 
this test should give an indication of t 


depending on how the software questions are answered. 
These are two modes of operation for test #4: 


operation as shown by default answers below. 


hardware questions. 
NUMBER OF BAD BLOCKS (D) 0 ? 


entering bad blocks. 
BAD BLOCK (A) ? 


block number actually exists on the disk. 


Answer ‘'Y’' to be asked the following questions. 


The pg oy of test #4 is to exercise the disk drives in a manner 
ar to normal usage under standard +s engpeeder systems. Execution of 
e performance of the d 
drive. This test may be run for long or short periods of time, 


1. Default operation on the entire area selected (customer or 
diagnostic) with all parameters selected for random 


2. Manual intervention mode where a number of questions are 
asked and operation is controlled by their answers. 


Which mode is entirely determined by the answer to the first software 
question asking, ‘Enter manual intervention mode for special di 
nosis?’’ This question would normally have been answered ‘N’' (d 
and testing wil! begin immediately. If answered ‘'Y'’, the following 

series of quest ons will be asked for each unit selected for testing: 


THE FOLLOWING QUESTIONS REFER TO UNIT xx UDA AT xxxxxx DRIVE xxx 


This message will identify to which drive the questions are 
being asked. The entire series of questions will be asked for 
each drive, there is no short way to answer like in the 


An answer in the range of 1 to 16 will allow that many bad 
block numbers to be entered. The program will allow writes 
and reads to these blocks but no error messages will be 
printed for these blocks. Errors encountered on these blocks 
will not appear in the statistics. Answer zero to bypass 


This question will be asked the number of times requested by 
the previous answer. Any decimal number that can be con- 

verted into a 28-bit binary value will be accepted. 
error checking will be made at this time to determine if the 


DO YOU WANT TO CHANGE TESTING PARAMETERS FOR THIS DRIVE (L) N ? 
Answer 'N"' to bypass all further questioning on this drive. 


SEQ 0103 


aoe 
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Answer ‘'Y’’ to dictate read only and prevent test #4 from 
performing any writes to the disk. 


WRITE ONLY (L) N ? 


This question will ony be asked if the previous question was 
answered ‘N'’. Answer ‘'Y'' to dictate write only. 


CHECK ALL WRITES BY READING (L) N ? 


Answer ‘'Y’’ to cause all writes tu be checked by reading the 
data immediately after the write operation. 


RANDOMLY CHECK WRITES BY READING (L) Y ? 


This question will only be asked if the previous question was 
answered ‘N'’. Answer 'Y’' for the write check to be performed 
randomly. Answer ‘N'’ if write checks are not desired. This 

question is asked no matter how previous questions were asked. 


DATA PATTERN = 0 FOR RANDOM SELECTION (D) 0 ? 


There are 16 data patterns available, selected as 1 to 16. 
Pattern number 0 will cause patterns 1 to 15 to be randomly 
selected for each write. If pattern number 16 is selected, 
poe Seen set of questions will be asked for a pattern to 
e input. 


ENABLE ECC DATA CORRECTION (L) Y ? 


A *'Y"’ answer will enable the use of ECC to correct data 
errors. If the number of corrections is within the drive's 
threshold, an informational message will be printed _ 
identifying the block number. These ECC corrections will also 


appear in the statistical report for the drive. 
An ‘WN’ answer will prevent the use of ECC. Ali ECC errors will 
cause an error message to be printed and retries to be 
attempted. 

COMPARE ALL DATA READ (L) N ? 
Answer ‘'Y’’ to cause a data compare after every read. 

RANDOMLY COMPARE DATA READ (L) Y ? 


This question will only be asked if the previous question was 
answered ‘'N’’. Answer ‘'Y’’ for the data compare to be performed 
conaee records. Answer ‘N'’ if data compares are not 
esired. 
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ENABLE RETRIES (L) Y 


A ''v’’ answer wiil enable retries to be performed on disk 
errors. 


RANDOM ACCESS MODE (L) Y ? 


Answer ‘'Y'' to cause block numbers to be chosen randomly. 
Answer ‘N'' to cause block numbers to be selected sequential ly 
up and down the disk surface. 


DO YOU WISH TO: 
QO - TEST ENTIRE AREA SELECTED 
1 = SPECIFY BEGIN/END SETS TO TEST 
2 - SPECIFY TRACKS AND CYLINDERS TO TEST 
3 = SPECIFY GROUPS AND CYLINDERS TO TEST 
see CYLINDERS TO TEST 


This question specifies the options available to limit testing 
to a portion of the selected area (customer or diagnostic) of 
the disk. A zero answer is the default which specifies to use 
the entire area for the test. Other answers will cause 
additional questions to be asked. 


NUMBER OF BEGIN/END SETS (D) 7 ? 
BEGIN BLOCK (A) 0 ? 
END BLOCK (A) 0 ? 


These questions are asked if begin/end sets were selected to 
Limit the ay area (Answer 1). One to four sets may be 
specified, The BEGIN BLOCK and END BLOCK questions are asked 
aS many times as needed. 


NUMBER OF TRACKS TO TEST (D) 1 ? 
TRACK (D) 0 ? 


NUMBER OF GROUPS TO TEST (D) 1 ? 
GROUP (D) 0 ? 


One of these sets of questions is asked if either tracks and 
cylinders or groups and cylinders was specified to Limit the 
testing area (Answers 2 or 3). Up to seven tracks or groups 
may be specified on which testing will be limited. 


DO YOU WISH TO LIMIT THE CYLINDERS TESTED (L) N ? 
This question is asked only after the tracks or groups have 
been specified above. If testing is to be further Limited to 


a set of cylinders, answer ‘'Y’’ and the following two ques- 
tions will be asked: 


eee SESS SSsS_may eee Sm 


=— 
| 


SEQ 0105 
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STARTING CYLINDER (A) 0 ? 
ENDING CYLINDER (A) 0 ? 


| 
These questions are asked if the question immediately above 
was answered “'Y'’ or if cylinders were selected to limit the 
testing area (Answer 4). One set of cylinder numbers may be 
specified to Limit the testing area. 


After the above questions have been asked for all drives selected for 
testing, the following questions will be asked if data pattern 16 was 
selected for any drive: 


NUMBER OF WORDS IN DATA PATTERN 16 (D) 1 ? 
DATA WORD (0) 0 ? 


Data pattern 16 can be input by these questions. A data 
pattern consists of a buffer of one to 16 words which is 
repeated oles ys the data portion of the disk block. Enter 
the contents of the data pattern buffer. The DATA WORD 
question will be repeated as needed. 


Test #4 will then initialize each UDA selected for pe ah and 
downline load a ‘diagnostic machine’’ program into each UDA. 
The ‘‘diagnostic machine’’ program asks what drives are to be 
tested and then for the parameters for each drive (the answers 
to the manual intervention questions or their defaults). Once 
all UDAs have beer, started, the PDP-11 program responds to 
requests from all UDAs. 


The disks are then be Sqere rosy Meares to the parameters. 
The exercise consists of selecting a disk sector, seeking to 
the proper cylinder, then reading or writing the sector. The 
parameters control how the disk sector is selected, whether 
the sector is written or read and whether a write is followed 
by a read (write check). 


The  wiognesste machine’’ program periodically sends statistics 
to the PDP-11 program. These statistics include counts of 
reads, writes, seeks and errors on a per drive basis. The 
PDP-11 program accumulates the statistics from all the UDAs 
and watches for the transfer Limit to be exceeded. As long as 
the error log is not enabled, the exceeding of the transfer 
Limit will cause the end of test #4. 


Each time an error occurs, the "‘diagnostic machine’ tells the 
PDP~11 program. A message is printed (or stored in the log 
buffer) and then the error Limit for the drive is checked. If 
the error Limit has been reached, the drive is dropped from 
testing. If no more drives remain to be tested, test #4 will 
end (unless the error log is enabled). 


When the end of test #4 occurs, the accumulated statistics for 
each drive is printed. This statistical report can be printed 
at any Sime during test #4 by typing control-C then the PRINT 
command. 





SEQ 0106 
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The data patterns used by test #4 are indicated below. Each 
pattern is generated by writing the pattern number in each 
4-bit nibble of the first word, then repeat sxe the data 
pattern (sequence of one to 16 words) throughout the rest of 
the data buffer. Pattern number 16 writes nibbles of zeros. 
When pattern number zero is used, the actual pattern number 
written (1 to 15) is placed in the nibbles. 


PATTERN 0 This pattern number is used to indicate any pattern 
number 1 to 15 chosen at random. 


PATTERN 1 Words in pattern sequence - 1 


Sequence (Octal) 105613 
Sequence (Hex) 8888 


PATTERN 2 Words in pattern sequence - 1 


PATTERN 3 


PATTERN 4 


Sequence 
Sequence 


Words in 


Sequence 
Sequence 


Words in 


Sequence 


(Octal) 
(Hex) 


pattern 


(Octal) 
(Hex) 


pattern 
(Octal) 


031463 
3333 


sequence - 1 
030221 
3091 


sequence - 16 (Shifting ones) 


000001, 000003, 000007, 000017, 000037, 
000077, 000177, 000377, 000777, 001 


003777, 007777. 017777. 037777. 077777. 
177777 


Sequence (Hex) 0001, 0003, 0007, OOOF, OO1F, O03F, 
OO7F, OOFF, OFF, O3SFF, O7FF, OFFF, 
FFF, SFFF, 7FFF, FFFF 


PATTERN 5 Words in pattern sequence - 16 (Shifting zeros) 


Sequence (Octal) 177776, 177774, 177770, 177760, 177740, 
177700, 177600, 177400, 177000, 176000, 
Ananone 170000, 160000, 140000, 100000, 


Sequence (Hex) FFFE, FFFC, FFF8, FFFO, FFEO, FFCO, 
FF80, FFOO, FEOO, FCOO, F800, FOOD, 
E000, C000, 8000, 0000 





PATTERN 6 


PATTERN 7 


PATTERN 8 


PATTERN 9 


PATTERN 10 


PATTERN 11 
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Words in 
Sequence 


Sequence 


Words in 


Sequence 
Sequence 


Words in 


Sequence 


Sequence 


Words in 


Sequence 
Sequence 


Words in 


Sequence 


Sequence 


Words in 


Sequence 
Sequence 
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pattern 
(Octal) 


(Hex) 


pattern 


(Octal) 
(Hex) 


pattern 
(Octal) 


(Hex) 


pattern 


(Octal) 
(Hex) 


pattern 
(Octal) 


(Hex) 


pattern 


(Octal) 
(Hex) 


sequence - 16 


900008. 000000, 000000, 177777, 177777, 
+ 000000, 000000, 177777, 177777. 
009000; 177777, 000000, 177777, 000000. 


0000, 0000, 0000. FFFF, FFFF, FFFF, 
00 O, FFFF, seer’ 0000; FFFF. 
0000, FFFF, 0000. 


sequence - (BINARY 1011011011011001) 


133331 
B6D9 


sequence - 16 

032383- 036363 - 052525, 125252, 125252, 
125252, 052525, 052525, 125252, 125252, 
052525, 125252, 052525, 125252, 052525, 


5555, 5555, 5555, AAAA, AAAA, AAAA, 
5555, 5555, AAAA, AAAA, 5555, AAAA 
5555, AAAA, 5555, AAAA 

sequence - 1 (BINARY 1101101101101100) 


155554 
DB6C 


sequence - 16 

026433 026533. 026455, 151322, 151322, 
151322, 026455, 026455, 151322, 151322, 

026433. 939333" 026455, 151322, 026455, 

2D2D, 2D2D, 2D2D, D2D2, D2D2, D2D2, 

2D 20; 2D2D, D2D2, D202, 2D2D, D2Dd2, 

2D2D, D2D2. ee D2D2 

sequence - 1 (BINARY 0110110110110110) 


066666 
6DD6 


SEQ 0108 


| 


———— 
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USER DOCUMENTATION 
PATTERN 12 Words in 


Sequence 


Sequence 


PATTERN 13. Words in 


Sequence 


Sequence 


PATTERN 14 Words in 


Sequence 
Sequence 


PATTERN 15 Words in 


Sequence 


Sequence 


pattern 
(Octal) 


(Hex) 


pattern 
(Octal) 


(Hex) 


pattern 


(Octal) 
(Hex) 


pattern 
(Octal) 


(Hex) 


sequence - 16 (Ripple one) 


000001, 000002, 000004, 000010, 000020, 
000040, 000100, 000200; 000400; 001000. 
oOS6 00, 004000, 010000; 020000; 040000; 


0001, 0002, 0004, 0008, 0010, 0020, 
0040, 0080, 0100, 0200; 0400; 0800, 
1000, 2000, 4000, 8000° 


sequence - 16 (Ripple zero) 


177776, Adda S 177773, 177767, 177757, 
177737, 177677, 177577. 177377. 176777. 
175770. 193997" 167777, 157777, 137777. 


FFFE, FFFD, FFFB, FFF7, FFEF, FFDF, 
FFBF, FF7F, FEFF, FOFF, FBFF, F7FF, 
EFFF, DFFF, BFFF, 7FFF 


sequence - 3 


155555, saeeees 155555 
DB6D, 86DB, DB6D 


sequence - 16 


133331, 133331, 133331, 155554, 155554 
155554, 133331, 133331, 155554. 155554 
133331. 155554, 133331, 155554, 133331 
155554. 

Hetty B6D9, B6D9, DB6C, rey DB6C, 


6 B6D9, DB6C, DB6C, B6D9, DB6C, 
B6D9, DB6C, B6D9, DB6C 


PATTERN 16 This is the operator selectable pattern in manual 
intervention mode. Questions are asked when test #4 is 
started for the operator to input the number of words in 
the sequence and the contents of the words. 





SEQ 0109 


7 


aay 
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Sample of terminal dialogue going through manual intervention 
questions: 


DR>STA/TEST:4 
CHANGE HW (L) ?N 
CHANGE SW (L) ? Y 
ENTER MANUAL INTERVENTION MODE FOR SPECIAL DIAGNOSIS (L) N? Y 
REMAINING SOFTWARE QUESTIONS APPLY TO TEST 4 ONLY 
ERROR LIMIT (D) 32 ? 
READ TRANSFER LIMIT IN whan dy op ° es iy NO LIMIT (D) 0 ? 
SUPPRESS PRINTING SOFT ae oy (L) 
DO INITIAL WRITE ON ST ART (L) Y 2" 
ENABLE ERROR LOG (L) N ? 
THE FOLLOWING QUESTIONS REFER TO UNIT 0 UDA AT 172150 DRIVE 0 
NUMBER OF BAD BLOCKS (D) 0 ? 2 
BAD BLOCK (A) ? 234 
BAD BLOCK (A) ? 8900 
DO YOU WANT TO CHANGE TESTING PARAMETERS FOR THIS DRIVE (L) N? Y¥ 
READ ONLY (L) N ? 
WRITE ONLY (L) N ? 
CHECK ALL WRITES BY READING (L) N? Y 
DATA PATTERN = 0 FOR RANDOM SELECTION (D) 0 ? 1 
ENABLE ECC DATA CORRECTION (L) Y ? 
COMPARE ALL DATA READ (L) N? Y 
ENABLE RETRIES (L) Y ? 
RANDOM ACCESS MODE (L) Y ? N 
DO YOU WISH T 

0 - TEST ENTIRE AREA SELECTED 

1 = SPECIFY BEGIN/END SETS TO TEST 

2 ~ SPECIFY TRACKS AND CYLINDERS TO TEST 

7 ~ SPECIFY GROUPS AND CYLINDERS TO TEST 

- SPECIFY CYLINDERS TO TEST 
() 0?1 

NUMBER OF BEGIN/END SETS (D) 1 ? 


BEGIN BLOCK (A) 0 ? 


SEQ 0110 
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END BLOCK (A) 0 ? 200 
NUMBER OF WORDS IN DATA PATTERN 16 (D) 1 ? 
DATA WORD (0) 0 ? 





We ey 
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PROGRAM HEADER 


~-SBTTL PROGRAM HEADER 


32 
$7 002000 BGNMOD 
p44 

35 3; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 

3 3 THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 

38 . 

i 002000 POINTER BGNRPT, BGNSW, BGNSFT, ERRTBL, BGNSETUP 

42 002000 HEADER CZUDC.A,9,0,1,PRI07 sFIELD SERVICE 
002000 LSNAME : : 
002000 103 ASCII /C/ 
002001 132 ASCII /Z/ 
002002 125 eASCII /U/ 
002003 104 ASCII /D/ 

2004 103 eASCII /C/ 
002005 00 -BYTE O 
2006 000 -BYTE O 

002007 000 -BYTE 0O 
002010 LSREV:: 
002010 101 ASCII /A/ 
002011 LSDEPO:: 
002011 071 ASCII /9/ 
002012 LSUNIT:: 
002012 000001 «WORD TSPTHV 
002014 LSTIML:: 
002014 000000 -WORD O 
002016 LSHPCP:: 
002016 034122 «WORD LSHARD 
002020 LSSPCP:: 
002020 034366 -WORD LSSOFT 
002022 LSHPTP:: 
002022 002136 -WORD LSHW 
002024 LSSPTP:: 
002024 002154 -WORD L$SW 
002026 LSLADP:: 
002026 035152 «WORD LSLAST 
002030 LSSTA:: 
002030 000000 -WORD 0 
002032 L$CO:: 
002032 000000 «WORD 0 
002034 LSDTYP:: 
002034 000001 «WORD 1 
002036 LSAPT:: 
002036 000000 -WORD 0 
002040 LSDTP:: 
002040 002124 -WORD LSDISPATCH 
002042 LSPRIO:: 
002042 000340 -WORD PRIO7 
002044 LSENVI:: 
002044 000000 -WORD 0 
002046 LSEXP1:: 
002046 000000 «WORD 0 
002050 LSMREV:: 


002050 003 -BYTE CSREVISION 
CSEDIT 





ae 
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PROGRAM HEADE 
002052 
002052 


000000 
000000 


000000 
002436 
025550 
000000 
000000 
000000 
000000 
000000 
002462 
104035 
002162 
026600 
030206 
030204 
026572 
000000 
000000 
000000 





LSEF:: 


LSSPC:: 


LSDEVP:: 
LSREPP: : 
LSEXP4:: 
LSEXPS:: 


LSAUT:: 
L$DUT:: 
L$LUN:: 


LSDESP:: 
LSLOAD:: 


LSETP:: 
LSICP:: 
LSCCP:: 
LSACP: : 
LSPRT:: 


LSTEST:: 


LSDLY:: 


LSHIME:: 


SEQ 0113 


0 
0 


0 
LSDVTYP 
LSRPT 


oo co fc O&O 


LSDESC 
ESLOAD 
LSERRTBL 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 

0 

0 

0 
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DISPATCH TABLE 
} ~SBTTL DISPATCH TABLE 
3 p++ 
4 3; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
Z ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
f . 
9 002122 DISPATCH 4 
002122 000004 -WORD 4 
002124 LSDISPATCH:: 
002124 030230 «WORD T1 
002126 031404 «WORD T2 
002130 031502 -WORD 13 


002132 031540 «WORD 14 





Tr 2 





eee ee 
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} ~SBTTL DEFAULT HARDWARE P-TABLE 

3 p++ 

4 ; THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 

5 ; THE TEST-DEVICE PARAMETERS. " STRUCTURE OF THIS TABLE 

6 : IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 

: ; AND IS USED AS A ‘'TEMPLATE’’ FOR BUILDING THE P-TABLES. 

9 ° 

10 002134 BGNHW = DFPTBL 
002134 000006 «WORD L10000-LSHW/2 
002136 L$HW: : 

+" 002136 DFPTBL: : 

12 002136 172150 WORD 172150 : UNIBUS ADDRESS 

13 002140 000154 WORD 154 : VECTOR ADDRESS 

14 002142 000005 -WORD 5. : BR LEVEL 

15 002144 000077 - WOR 63 : UNIBUS BURST RATE 

16 002146 000000 - WOR 0 3 LOGICAL DRIVE NUMBER 

17 002150 0000 -WORD 0 3 CUSTOMER DATA AREA 

18 002152 ENDHW 
002152 L10000: 


—S er 


9 
CZUDCBO UDA & 1 DRV DIAG MACRO V04.00 29-APR=82 17:36:04 PAGE ths 


SOFTWARE P-TABLE 


SEQ 0116 


; .SBTTL SOFTWARE P=TABLE 
4 * THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
5 + PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
6 ; SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
? ; AT RUN TIME, 
a 
10 002152 BGNSW SFPTBL 
002152 000003 .WORD £L10001-L$Sw/2 
002154 L$SwW:: 
1 002154 SFPTBL:: 
12 OFFSET 
13 002154 000040 .WORD 32. : 0. ERROR LIMIT 
14 002156 000000 “wORD 0. : 2. DATA TRANSFER LIMIT (MEGABITS) 
15 002160 040400 “WORD *B80100000100000000 : 4. SINGLE BIT QUESTIONS 
19 002162 ENDSW 
a 002162 L10001: 
21 002162 ENDMOD 
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| GLOBAL EQUATES SECTION 


| J .SBTTL GLOBAL EQUATES SECTION 
: 002162 BGNMOD 
5 ++ 
é + THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
i t ARE USED IN MORE THAN ONE TEST. 
9 o 
10 002162 EQUALS 
: BIT DIFINITIONS 
100000 Leettns 100000 
040000 BIT14== 40000 
020000 B1T13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT10== 2000 
001000 BIT09== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BIT06== 100 
000040 BITOS== 40 
000020 BIT04== 20 
000010 BIT03== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
001000 BIT9== BITO9 
000400 BIT8== BITO8 
000200 BIT7== B1T97 
000100 BIT6== BIT06 
004 BIT5== BITOS 
000020 BIT4== BIT04 
000010 BIT3== BIT03 
000004 BIT2== BITO2 
000002 BIT1l== BITO1 
000001 BITO== BITOO 
t EVENT FLAG DEFINITIONS 
> EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
000040 EF .START== 32. : START COMMAND WAS ISSUED 
000037 EF.RESTART== 31. + RESTART COMMAND WAS ISSUED 
000036 EF.CONTINUE== 30. + CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. : A NEW PASS HAS BEEN STARTED 
000034 EF . PWR== 28. : A POWER=FAIL/POWER-UP OCCURRED 
t PRIORITY LEVEL DEFINITIONS 
000340 PRIO 
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GLOBAL EQUATES SECTION 


~~ 
No— 


000140 


000900 


000004 


100000 
000015 


oso 


SOPERATOR FLAG BITS 


CH Prone 
$$23S5 
2CD—r— 


v 
2 


vvu®W 
DZO 
mm ommne—rn 


:VALUE TO PASS TO PRINT MACRO TO END LINE 


| 
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GLOBAL EQUATES SECTION 


—SOVDNOAULWN "OO VOONOUEWR— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 





MACRO DEFINITIONS FOR GLOBAL EQUATES 
3; THESE MACROS ARE USED TO DEFINE INDEXES INTO A TABLE 

[CALLING SEQUENCE MUST BE 

: TABLE 

: ITEM NAME BYTES 

: ITEM NAME BYTES 

: ITEM NAME BYTES 

: END SIZE 

:TABLE DEFINES THAT A TABLE IS ,ABOUT TO BE DEFINED AND END TERMINATES. THE DEFINITION. 


Y NUMBER OF ITEM LINES CAN APPEAR. NAME IS THE NAME OF THE SYMBOL BEING EQUATED TO 
THE INDEX. THE INDEX ALWAYS STARTS AT ZERO. BYTES SPECIFIES THE SIZE OF THE VALUE TO BE 
STORED AT THAT_INDEX_IN BYTES. THE SIZE ARGUMENT TO THE END STATEMENT IS OPT IONAL, IT 
BE EQUATED TO THE SIZE OF THE TABLE IN BYTES. THE SYMBOL TINDEX IS USED TO KEEP TRACK 
sOF THE INDEX VALUE AND WILL BE EQUAL TO THE SIZE OF THE TABLE AFTER THE END STATEMENT. 


-MACRO TABLE 
TINDEX=0 


«MACRO ITEM ap BYTES 
NAME=T INDEX 
TINDEX=TINDEX+BYTES 


«MACRO END SIZE 
-IF NB SIZE 
$12ZE=T INDEX 


- ENDM 


SEQ 0119 


ss 
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“guMcs0 yO 8 DIS Ry DIAG ACHO vO 


SOOWONAOVUEWN—OOONOUEWN— 


yo ow rors 


: 

31 
22 
23 
24 


004000 
100000 
003777 


002000 
001000 
000400 


000177 
0 


000400 
004000 


000007 
000070 


000209 
003400 


000001 


sUDA BIT DEFINITIONS 
sUDASA REGISTER UNIVERSAL READ BITS 
SA.S1= 004000 


SA.S4= 0000 

SA.ERR= 100000 

sUDASA REGISTER ERROR STATUS BITS 
SA.ERC= 003777 

sUDASA REGISTER STEP ONE READ BITS 
SA.NV= 002000 

SA.A2= 001000 

SA.DI= 000400 

: 000377 

sUDASA REGISTER STEP ONE WRITE BITS 


SA.VEC= 000177 


SA.STP= 100000 


SA.MS1= 000400 
SA.CM1= 004000 


sUDASA REGISTER STEP TWO READ BITS 
SA.MSE= 000007 
SA. CME= 000070 
000100 
a. STE= 000200 
SA.CTP= 003400 
sUDASA REGISTER STEP TWO WRITE BITS 


SA.PRG= 000001 
: 177776 


SEQ 0120 


STEP 1 STATUS BIT 
sSTEP 2 STATUS BIT 
sSTEP 3 STATUS BIT 
STEP 4 STATUS BIT 
sERROR INDICATOR 


ERROR CODE 


NON SETTABLE INTERRUPT VECTOR 
32 DDRESS BUS 


ALL BITS RESERVED 


r 
| 
| 
| 
| 

: INTERRUPT VECTOR (DIVIDED BY 4) 

: INTERRUPT ENABLE —— INITIALIZATION 

;MESSAGE RING LENGTH 

: COMMAND RING LENGTH 

{WRAP BIT 

STEP = MUST ALWAYS BE WRITTEN A ONE 


3LSB OF MESSAGE RING LENGTH 
LSB OF COMMAND RING LENGTH 


COMA RING LENGTH ECHO 


;COMMAND RING LENGTH ECHO 
sRESERVED 

:STEP ECHO 

;CONTROLLER TYPE 


ENABLE VAX UNIBUS ADAPTER PURGE INTERRUPT 
LOW ORDER MESSAGE RING BYTE ADDRESS 





—_-—-----— 
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sUDASA REGISTER STEP THREE READ BITS 





} 

3 000177 SA.VCE= 000177 

4 000200 SA. INE= 000200 

5 000400 SA.NVE= 000400 

S H 003000 

: sUDASA REGISTER STEP THREE WRITE BITS 
10 : 077777 

3 100000 SA.TST= 100000 

HF sUDASA REGISTER STEP FOUR READ BITS 
15 000377 SA.MCV= 000377 

1 : 003400 

sUDASA REGISTER STEP FOUR WRITE BITS 
20 000001 SA.GO= 000001 

21 000002 SA.LFC= 000002 

22 000374 SA.BST= 000374 


INTERRUPT VECTOR ECHO 

: INTERRUPT ENABLE ECHO 
VECTOR NOT PROGRAMMABLE 
sRESERVED 


HIGH ORDER MESSAGE RING BYTE ADDRESS 
PURGE POLE TEST ENABLE 


UDA MICROCODE VERSION 
;RESERVED 


:GO BIT TO START UDA FIRMWARE 
sLAST FAILURE CODE REQUEST 
BURST LEVEL 


SEQ 0121 


a 





| 


GLOBAL EQUATES SECTION 


NO DCONAUEWN Oo OONOULWwh— 


NONIDRIR et tt tt 


fw 


100000 
040000 


000004 
000004 
000004 


000060 
000106 


000272 
000400 


000000 


001000 


- — 
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SEQ 0122 


; COMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS 


RG. OWN= 
RG.FLG= 


100000 
040000 


3SET WHEN UDA OWNS RING 
FLAG BIT 


sOFFSETS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR TO EACH RING 
sAND TWO PACKET AND BUFFER AREAS. 


HC.SIZ= 


VIRTUAL CIRCUIT IDENTIFIERS 


- HC. INT+HC. 182 


MSG+ 
HC. ASGOHC. RSZ 
HC. CMD+HC. RSZ 


HC .BF1+HC .BSZ 
HC.BF2+HC.BSZ 


0 
1 


-1 
1000 





;SIZE OF yg Bs INDICATOR WORDS 
;SIZE OF RING IN BYTES 

;SIZE OF ENVELOPE WORDS BEFORE PACKET 
;SIZE OF COMMAND AND MESSAGE PACKETS 
;SIZE OF BUFFER 


tee o a iteat WORDS START 
;MESSAGE RING S 

3MESSAGE stot CONTROL WORD 
;COMMAND RING START 


;COMMAND RING CONTROL WORDS 
ZMESSAGE ENVELOPE START 
MESSAGE PACKET START 


;COMMAND ENVELOPE START 
COMMAND PACKET START 
sFIRST BUFFER 

SECOND BUFFER 


sTOTAL SIZE OF HOST COMM AREA 


sMSCP CIRCUIT 

:LOG CIRCUIT 

DIAGNOSTIC CIRCUIT 

:DIAGNOSTIC AND UTILITIES PROTOCOL 


—_-— —------—-} 





GLOBAL EQUATES SECTION 
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SO ODNAUEWN OO OONOUS Wh 


NON 2 es 


HC. INT 


HC.MSG 


HC.CMD 
HC.CCT 


HC.MEV 


HC.CEV 
HC.CPK 


HC.BF1 


HC .BF2 





foenmmoe De ne we eo me eo Moe se eae ree + 
INTERRUPT INDICATORS . 
teweeweew enn en wenn ene n ene n een n enn e nnn n nee e eee nns 
MESSAGE RING : 
peeeeen nn en enone no-one eee - eee eee eee 2---------- + 
: “COMMAND RING 
teweew nnn e nee e nnn enn n enon eon en nooo eee eee + 
: MESSAGE ENVELOPE 
i i 
i i 
i i 
Femme w wenn www wwe w ewww www e ewww owen ween one wnnenne + 
COMMAND ENVELOPE 
i i 
i i 
i i 
pommmmw www ewww ewww ewww ewww ww ewww nnn nw ewww nnn none + 
BUFFER # 1 (RESPONSE TO DM PROGRAM) 
i i 
$emmmwmww www www ew ew wee e ewww e www ewww ene n nnn nnn n+ 
BUFFER # 2 (REQUEST FROM DM PROGRAM) . 
i i 
temmmenwwe meee ew new w ww ww eww ewww ewww www en nnn nnne + 


4 BYTES 


4 BYTES 


4 BYTES 


52 BYTES 


52 BYTES 


70 BYTES 


70 BYTES 


SEQ 0123 
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—“SOVODNAUESWN $OOONOUEWN— 


PNSIND ak st et dt ot oes 2 od 


22 


000005 





COMMAND PACKET OPCODES 


OP .ABO= zABORT COMMAND 
OP.ACC= sACCESS COMMAND 
OP .AVL= sAVAILABLE COMMAND 
-CCD= sCOMPARE CONTROLLER DATA COMMAND 


COMPARE HOST DATA COMMAND 
ERASE COMMAND 


a 
2 
Uv 
" 
MmMNen—r 


1 
0 
0 
1 
2 
OP.FLU= 23 FLUSH COMMAND 
OP.GCS= 2 GET COMMAND STATUS COMMAND 
P.GUS= 3 GET UNIT STATUS COMMAND 
P.ONL= 11 ONLINE COMMAND 
OP.RD= 41 : EAD COMMAN 
OP.RPL= 24 sREPLACE COMMAND 
OP.SCC= 4 SET CONTROLLER CHARACTERISTICS COMMAND 
-SUC= 12 SET UNIT CHARACTERISTICS COMMAND 
P.WR= 42 TE COMMAND 
-MRD= 30 MAINTENANCE READ COMMAND 
OP.MWR= 31 sMAINTENANCE WRITE COMMAND 
OP.END= 200 END PACKET FLAG 
-SEX= 7 SERIOUS EXCEPTION END PACKET 
OP.AVA= 100 ZAVAILABLE ATTENTION MESSAGE 
OP.DUP= 101 [DUPLICATE UNIT NUMBER ATTENTION MESSAGE 
OP.SHC= 102 SHADOW COPY COMPLETE ATTENION MESSAGE 
OP.RLC= 103 RESET COMMAND LIMIT ATTENTION MESSAGE 
OP.GSS= 1 DUP GET STUD STATUS 
OP.ESP= 2 DUP EXECUTE SUPPLIED PROGRAM 
OP.ELP= 3 ;DUP EXECUTE LOCAL PROGRAM 
ag 6 ;DUP SEND STUD DATA 
P.RSD= 5 DUP RECEIVE STUD DATA 


sNOTE: END Ag OPCODES (ALSO CALLED ENDCODES) ARE FORMED By ADDING boy END 
a COnTAr FLAG TO THE ts ND wey FOE EXAMPLE, AR “ys AD yee gt END PACKET 


com ore BITS 3 THROUGH 5 INDICATE THE COMMAND CLASS, WHICH IS ENCODED 
0 IMMEDIATE COMMANDS 

001 SEQUENTIAL COMMANDS 

NON~SEQUENTIAL COMMANDS THAT DO NOT INCLUDE A BUFFER DESCRIPTOR 

100 NON-SEQUENTIAL COMMANDS THAT DO INCLUDE A BUFFER DESCRIPTOR 


BeBe Be te 
ooon 
-—oo 
So 


SEQ 0124 
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GLOBAL EQUATES SECTION 


—SOVOVWNAUSWN—OOONOuUfSwhr— 


DO 





000001 


000200 
000100 
000040 
000020 


000200 
000 


:COMMAND MODIFIERS 


; = 020000 CLEAR SERIOUS EXCEPTION 

MD.CMP= 040000 ; COMPARE 

MD.EXP= 100000 EXPRESS REQUEST 

MD.ERR= 010000 FORCE ERROR 

MD.SCH= 004000 ;SUPPRESS CACHING (HIGH SPEED) 
MD.SCL= 002000 ;SUPPRESS CACHING (LOW SPEED) 
MD.SEC= 000100 s SUPPRESS ERROR CORRECTION 

MD.SER= 000400 SUPPRESS ERROR RECOVERY 

MD.SSH= 000200 ;SUPPRESS SHADOWING 

MD.WBN= 000100 WRITE=BACK (NON=VOLATILE) 

MD.WBV= 000400 WRITE BACK (VOLATILE) 

MD.SEQ= 000020 WRITE SHADOW SET ONE UNIT AT A TIME 
MD.SPD= 000001 : SPIN-DOWN 

MD.FEU= 000001 FLUSH ENTIRE UNIT 

MD.VOL= 000002 :VOLATILE ONLY 

MD.NXU= 000001 NEXT UNIT 

MD.RIP= 000001 ZALLOW SELF DESTRUCTION 

MD.IMF= 000002 : IGNORE Te be FORMAT ERROR 

MD.SWP= 000004 SET WRITE PROT ce ae 

MD.CWwB= 000010 7CLEAR WRITE=BACK DATA LOST 

MD.PRI= 000001 PRIMARY REPLACEMENT "BLOCK 

sEND PACKET FLAGS 

EF .BBR= 000200 BAD BLOCK REPORTED 

EF .BBU= 000100 BAD BLOCK UNREPORTED 

EF.LOG= 000040 zERROR LOG GENERATED 

EF.SEY= 000020 SERIOUS EXCEPTION 

:CONTROLLER FLAGS 

CF ..ATN= 000200 ENABLE ATTENTION MESSAGES 

CF .MSC= 000100 sENABLE MISCELLANEOUS ERROR LOG MESSAGES 
CF. .OTH= 000040 sENABLE OTHER HOST'S ERROR LOG MESSAGES 
CF.THS= 000020 ENABLE THIS HOST*S ERROR LOG MESSAGES 


3 SHADOW 
CF.576= 000001 3576 BYTE SECTORS 
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TID ad et et a ot ot os 2 
SODWNAUESWN CO DOONOUSWN— 


— 


MN & BER EREES SRWWWWWfononofenononon 


000001 


000034 
000040 


000024 
000034 


;UNIT FLAGS 
UF .CMR= 000001 


F 
UF. 576= 000004 


: COMPARE READS 

COMPARE WRITES 

SHOST INITIATED BAD BLOCK REPLACEMENT 
2 INACTIVE SHADOW SET UNIT 

;SUPPRESS CACHING (HIGH SPEED) 
;SUPPRESS CACHING (LOW SPEED) 

3 WRITE=BACK er mt LY § 

[WRITE PROTECT (HARDWARE) 

[WRITE PROTECT (SOFTWARE OR VOLUME) 
7576 BYTE SECTORS 


COMMAND PACKET OFFSETS 


BAXAMWOC@aLO 
os se oO 


wo oe 





GENERIC COMMAND PACKET OFFSETS: 
COMMAND REFERENCE NUMBER 
UNIT NUMBER 


SOPCODE 
{MODIFIERS | 


sBYTE COUNT 

BUFFER DESCRIPTOR 

SUNIBUS ADDRESS OF BUFFER DESCRIPTOR 
LOGICAL BLOCK NUMBER 


ABORT AND GET COMMAND STATUS COMMAND PACKET OFFSETS: 
OUTSTANDING REFERENCE NUMBER 


UNLINE AND SET UNIT CHARACTERISTICS COMMAND PACKET OFFSETS: 
{HOST IDENTIFIER / RESERVED 
ZERROR LOG FLAGS 
; SHADOW UNI 
:COPY SPEED 
REPLACE COMMAND PACKET OFFSETS 
REPLACEMENT BLOCK NUMBER 
SET CONTROLLER CHARACTERISTICS COMMAND PACKET OFFSETS: 
CONTROLLER FLAGS 
[HOST TIMEOUT 
[USE FRACTION 
SQUAD-WORD TIME AND DATE 
MAINTENANCE READ AND MAINTENANCE WRITE COMMAND PACKET OFFSETS: 
[REGION OFFSET 
EXECUTE SUPPLIED PROGRAM _LOMMAND PACKET OFFSETS: 


T TERMINAL ADDRESS (MAINT WRITE ONLY) 
7BUFFER DESCRIPTOR FOR OPERLAYS 


SEQ 0126 


RENEE Gp RANA GION 
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} END PACKET OFFSETS 

3 : GENERIC END PACKET OFFSETS: 

* 000000 P.CRF= 0. COMMAND REFERENCE NUMBER 
5 000004 P.UNIT= 4, [UNIT NUMBER 

6 000010 P.OPCD= 8. OPCODE se CALLED ENDCODE) 
7 000011 P.FLGS= 9. END PACKET FLAGS 

8 000012 P.STS= 10. STATUS 

9 000014 P.BCNT= 12. sBYTE COUNT 

000034 P.FBBK= 28. FIRST BAD BLOCK 

12 : GET COMMAND STATUS END PACKET OFFSETS: 

13 000014 P.OTRF= 12, TS Lend oy REFERENCE NUMBER 
‘3 000020 P.CMST= 16. COMMAND STATUS 

16 : GET UNIT STATUS END PACKET OFFSETS: 

17 000014 P.MLUN= 12. sMULT oye CODE 

18 000016 P.UNFL= 14, T FLAGS 

19 000020 P.HSTI= 16. HOST frenetic tee 
20 000024 P.UNTI= 20. UNIT IDENTIFIER 
21 000034 P.MEDI= 28. s:MEDIA TYPE IDENTIFIER 

22 000040 P.SHUN= 32. SHADOW UNIT 
23 000042 P.SHST= 34. SHADOW STATUS 
24 000044 P.TRCK= 36. STRACK SIZE 
25 000046 P.GRP= 38. :GROUP SIZE 
26 000050 P.CYL= 40. a ety SIZE 

27 000054 P.RCTS= 44. T TABLE SIZE 

28 000056 P.RBNS= 46. ;RBNS / TRACK 
$ 000057 P.RCTC= 47. RCT COPIES 
31 ; ONLINE AND SET UNIT —- END PACKET AND AVAILABLE 
32 : ATTENTION MESSAGE btwn 

33 000014 P.MLUN= 12. tf ry CODE 

34 000016 P.UNFL= 14, FLAGS 

35 000020 P.HSTI= 16. HOST ieee iciee 

36 000024 P.UNTI= 20. [UNIT IDENTIFIER 

37 000034 P.MEDI= 28. :MEDIA TYPE IDENTIFIER 

38 000040 P.SHUN= 32. ;SHADOW UNIT 

39 000042 P.SHST= 34. + SHADOW STATUS 
40 000044 P.UNCL= 36. UNIT COMMAND LIMIT 
41 000050 P.UNSZ= 40. TUNIT $1Z 
$$ 000054 P.VSER= 44. VOLUME SERIAL NUMBER 
AS : SET CONTROLLER CHARACTERISTICS END PACKET OFFSETS: 
45 000014 P.VRSN= 12, z:MSCP_ VERSION 
46 000016 P.CNTF= 14, CONTROLLER Ae 
47 000020 P.CTMO= 16. CONTROLLER TIMEOUT 
48 000022 P.CNCL= 18, CONTROLLER COMMAND LIMIT 
49 000024 P.CNTI= 20. CONTROLLER ID 





i 
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GLOBAL EQUATES SECTION 


ROR et 2 ot ot ot ot es 
WHO CONAOUSWN—ODOONOULWwR— 


Mronrn 
ans 


27 


000037 
000040 


STATUS AND EVENT CODE DEFINITIONS 


ST.MSK= 37 
ST.SUB= 40 
ST.SUC= 0 
ST.CMD= 1 
ST.ABO= ¢ 
ST.OFL= 
ST.AVL= 4 
ST.MFE= 5 
ST.WPR= 6 
ST.CMP= 7 
ST.DAT= 10 
ST.HST= 11 
-CNT= 12 
ST.DRV= 13 
ST.DIA= 37 
;DUP MESSAGE TYPES 
DU.QUE = 10000 
DU.DFL = 20000 
DU.INF = 30000 
DU.TER = 40000 
DU.FTL = 50000 
DU.SPC = 60000 





¢ STATUS / EVENT CODE MASK 
rghit MULTIPLIER 


:SUCC 

: INVALID COMMAND 

sC D ABORTED 

3 UNI TOF FLINE 

: UNI T=AVAILABL 
:MEDIA FORMAT ERROR 
WRITE PROTECTED 
COMPARE ERROR 
:DATA ERROR 

HOST BUFFER ahs ERROR 
:CONTROLLER ERR 
DRIVE E 


RROR 
;MESSAGE FROM AN INTERNAL DIAGNOSTIC 


QUESTION 
“DEFAULT — 
: INFORMATI 
TERMINATOR. 


FATAL ERROR 
SPECIAL 


SEQ 0128 


eee 





oe 
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GLOBAL EQUATES SECTION 


} : CONTROLLER TABLE DEFINITIONS 
3 TONE TABLE WILL BE SET UP BY INITIALIZE SECTION FOR EACH UDA SELECTED 
& sFOR TESTING. TABLES ARE CONTIGUOUS. THE END OF THE TABLES IS 
; ;MARKED BY A WORD OF ZEROS. 
4 THE FIRST TABLE IS POINTED TO BY THE CONTENTS OF CTABS. 
;THE NUMBER OF TABLES IS CONTAINED IN CTRLRS. 
H 002162 TABLE zSTART A TABLE DEFINITION 
12 002162 ITEM C.UADR 2 sUNIBUS ADDRESS OF UDAIP REGISTER 
13 002162 ITEM C.UNIT 2 
14 000077 CT.UNT= 000077 : LOGICAL UNIT NUMBER (FIRST) 
15 100000 CT.AVL= B1T15 : SET WHEN NOT AVAILABLE FOR TESTING 
16 002162 ITEM C.VEC 2 
17 000777 CT.VEC= 000777 : VECTOR ADDRESS 
18 007000 CT.BRL= 007000 : BR LEVEL 
19 002162 ITEM C.BST 2 : BURST LEVEL 
20 00216 ITEM C.JSR 2 s INTERRUPT SERVICE ROUTINE FOR CONTROLLER 
21 002162 ITEM C.JAD 2 :_ THESE TWO WORDS LOADED WITH CJSR RO,UDASRV] 
22 00216 ITEM C.FLG 2 2FLAGS 
23 000002 CT.RN= BIT] DM PROGRAM RUNNING 
ra) 000004 CT.CMD= BIT2 COMMAND ISSUED, WAITING FOR RESPONSE 
25 000010 CT.MSG= BITS sMESSAGE RESPONSE RECEIVED 
26 sWHENEVER THIS BIT IS SET, CT.CMD IS CLEARED 
27 000020 CT.REQ= BIT4 sBUFFER HAS BEEN GIVEN TO UDA FOR REQUEST 
$ :SET_ WHENEVER READ STUD DATA COMMAND 
33 002162 ITEM C.RING 2 RING BUFFER ADDRESS 
34 002162 ITEM C.DRO 2 POINTER TO DRIVE TABLES 
35 002162 ITEM C.DR1 2 : IF ZERO, NO DRIVE TABLE EXISTS 
002162 ITEM C.DR2 2 
37 002162 ITEM C.DR3 2 
38 002162 ITEM C.DR4 2 
39 002162 ITEM C.DR5 2 
40 002162 ITEM C.DR6 2 
41 002162 ITEM C.DR7 2 
42 002162 ITEM C.TO 2 pati wae 
43 002162 ITEM C.TOH 2 (TWO. WO 
44 002162 ITEM C.REF 2 COMMAND REFERENCE NUMBER 


4 
46 002162 END C.SIZE :SEZE OF CONTROLLER TABLE IN BYTES 








002162 


002162 
002162 


002162 


TQ mt et et os os 2 os es os 
—OOONAUSWN—ODONAUSWh— 


22 


35 002162 
36 


51 002162 


000077 
100000 


0 
140200 
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GLOBAL EQUATES SECTION 


:DRIVE TABLE DEFINITIONS 


TONE DRIVE TABLE WILL BE SET UP BY THE INITIALIZE SECTION FOR EACH 
DRIVE SELECTED FOR TESTING. EACH TABLE IS POINTED TO BY A 
;WORD IN THE CONTROLLER TABLE ON WHICH THE DRIVE EXISTS. 


TABLE sSTART A TABLE DEFINITION 
ITEM D.DRV 2 DRIVE NUMBER 
ITEM D.UNIT 2 
DT.UNT= 000077 : LOGICAL UNIT NUMBER OF DRIVE 
DT.AVL= B1T15 SET WHEN NOT pg pe FOR TESTING 
ITEM D.PRM 2 ; HARDWARE wee LAGS 
-IW =BIT14 : INITIAL WRITE 
D.DCY =B1T13 DIAGNOSTIC CYLINDERS 
D.ECC =BITI2 sECC COR oo ENABLED 
D.RO =B1T11 zREAD ONL 
D.WO =B1T10 WRITE ONLY 
D.RET  =BIT9 ;RETRIES ENABLED 
D.CYL =81T8 ;START/END CYLINDERS SPECIFIED 
D.SEQ =BIT6 SEQUENTIAL ACCESS 
D.BE =B1T5S ;BEGIN/END BLOCKS USED 
N.TR =BIT4 ;WHEN D.BE=0: 1 = TRACKS, 0 = GROUPS 
v.WC =B1T3 WRITE CHECKS ENABLED 
D.WCA =BIT2 sALWAYS WRITE CHECK 
D.DC =B1T1 :DATA COMPARES ENABLED 
D.DCA =81 sALWAYS DATA COMPARE 
DDEF=D.ECC+D.WC+D.DC+D.RET ;DEFAULT D.PRM 


D.ZERO=BIT15+BIT7*D.IW ;BITS TO BE CLEARED 


ITEM D.PAT 2 :DATA_PATTERN NUMBER 
ITEM 0.88 2 BAD BLOCK COUNT 
ITEM 0.8801 “ :BAD BLOCK 1 
ITEM D.BB02 & : 2 
ITEM D 803 4 : 3 
ITEM D.BB04 & : 4 
ITEM D.8B05 4 : 5 
ITEM D.BB06 4 : 6 
ITEM 0.8807 & 3 7 
ITEM 0.8808 & : 8 
ITEM 0.8809 4 : 9 
ITEM 0.8810 4 : 10 
ITEM 0.8811 4 3 11 
ITEM D.BB12 4 : 12 
ITEM 0.8B13 4 : 13 
ITEM D.BB14 4 : 14 
ITEM D.BB15 4 : 15 
ITEM D.6B16 4 : 16 





SEQ 0130 
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GLOBAL EQUATES SECTION 


1 002162 ITEM D.BEC 2 seeein eee te COUNT 
2 002162 ITEM D.BGN1 4 BEGIN N BLOCK 1 
3 002162 ITEM D.END1 4 
4 002162 ITEM D.BGN2 & BEGIN BLOCK 2 
5 002162 ITEM D.END 4 7 EN 
6 002162 ITEM D.BGN S :BEGIN BLOCK 3 
? 002162 ITEM D.END3 4 3 
8 002162 ITEM D.BGN4 4 sBEGIN BLOCK 4 
9 002162 ITEM D.END4 4 3 END 
10 002162 ITEM D.BCYL & BEGIN CYLINDER 
11 002162 ITEM D.ECYL 4 sEND CYLINDER 
12 002162 ITEM D.XFRW 2 ;MEGABITS WRITTEN COUNT 
13 002162 ITEM D.XFRR 2 sMEGABITS READ COUNT 
14 002162 ITEM D.HERR 2 HARD ERROR COUNTER 
15 002162 ITEM D.SERR 2 SOFT ERROR COUNTER 
16 002162 ITEM D.SEEK 2 NUMBER OF SEEKS x1000 
17 002162 ITEM D.ECCC 2 sECC COUNTER 
i 002162 ITEM D.SERN 6 ;DRIVE SERIAL NUMBER 
$¢ 002162 END 0.SIZE sSIZE OF DRIVE TABLE IN BYTES 
$$ 3DM PROGRAM HEADER DEFINITIONS 
28 000000 DMTRLN= 0 OFFSET TO SIZE OF He pap NEEDING DOWNLINE LOAD 
29 000004 DMOVRL= 4 :OFFSET TO SIZE OF OVERLAY 
30 000040 DMMAIN= 40 sOFFSET TO FIRST WORD OF MAIN PROGRAM 
31 001000 DMFRST= 1000 sADDRESS IN DM FILE CONTAINING FIRST BYTE OF HEADER | 
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GLOBAL EQUATES SECTION 


j SUSEFUL INSTRUCTION DEFINITIONS 
3 MACRO AND -ARG.ADR ZLOGICAL AND INSTRUCTION 
5 : BIC #*C<ARG>,ADR 
6 .NLIST 
i ~ENDM 
h .MACRO OR ARG. ADR ZLOGICAL OR INSTRUCTION 
11 ; BIS #ARG,ADR 
12 .NLIST 
13 .ENDM 
15 .MACRO PUSH ARG :PUSH INSTRUCTION 
16 .IRP X,<ARG> 
17 LIST 
18 MOV X,=(SP) 
19 .NLIST 
20 -ENDM 
21 .ENDM 
23 .MACRO POP ARG :POP INSTRUCTION 
24 .IRP X,<ARG> 
25 “LIST 
26 MOV (SP)+,Xx 
27 .NLIST 
28 SENDM 
29 .ENDM 
31 -MACRO .BR ADR ZA BRANCH TO THE NEXT LOCATION 
33 "TF NE .ADR 
34 zERROR SILLEGAL .8R TO ADR 
36 .ENDC 
$ ~ENDM 
39 .MACRO ASSUME FIRST CONDITION SECOND 


40 -IF CONDITION <F IRST>=<SECOND> 
; ee BAD ASSUME OF <FIRST> CONDITION <SECOND> 
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GLOBAL EQUATES SECTION 


FW OVONAUME WHO OONOU SW 


POPONO RIND @ a sO oe 


| 


PRINT CHARACTER 
ARGUMENT HUST BE SOURCE STATEMENT TO MOVE CHARACTER TO PRINT 
X: “PRINT R1'' WILL PRINT THE CHARACTER IN R1 
SPECIAL CASE: "PRINT ACR” WILL PRINT END OF LINE” SEQUENCE 
THE PRINTING IS DONE AT THE MODE OF THE LAST PRINT LINE CALL 
IE., PNTX, PNTB, PNTX, PNTS 


»MACRO PRINT ARG1 
-IF DIF vt | eles 


«NLIST 


-ENDM 
sPROCESSING MACRO FOR NEXT SET OF FORMATTED MESSAGE MACROS 
«MACRO gE -ADR,ARG1,ARG2,ARG3,ARG4, ARGS ,ARG6,ARG7,ARG8 
-IRP AA, te ay" we a, oARGS ,ARG4 ,ARG3,ARG2,ARG1> 
«LIST 


«NLIST 
PNT.CT=PNT.CT+2 


«NLIST 
-ENDM 


zPRINT FORMATTED MESSAGE MACROS 

USE THESE MACROS TO PRINT A FORMATTED MESSAGE 

FIRST . a ho MUST BE ADDRESS OF A aid CHARACTER OF MESSAGE 
O BE PUT INTO WORD (.WORD ARG) 

UP TO 8 SOURCE srg ereMtS MAY FOLLOW TO SPECIFY PARAMETERS TO 

USED BY THE FORMA 


-MACRO PNTF ADR ARG1,ARG2,ARG3, Te ARGS ,ARG6,ARG7, ARGS 
PNT... LPNTF ADR ARG1,ARG2,ARG3,ARG4,ARGS ARGO, ARG7 , ARG8 


-ENDM 
«MACRO PNTB ADR ARG1,ARG2,ARG3,ARG4,ARG5,ARG6,ARG7,ARG8 
PNT... LPNTB ADR ARG1,ARG2,ARG3,ARG4,ARGS, ARG6, ARG7, ARG8 


- END 
“MACRO _— ADR ARG1,ARG2,ARG3, er ARGS ,ARG6, ARG7 , ARGS 
PNT... LPNTX ADR ARG1,ARG2,ARG3,ARG4,ARG5 ARGO, ARG7, ARGS 


-ENDM 
«MACRO en ADR ARG1,ARG2,ARG3,ARG4, me -ARG6,,ARG7 , ARGS 
PNT... LPNTS ADR ARG1,ARG2,ARG3,ARG4,ARG5 ARGO, ARG7,ARG8 


-ENDM 
«MACRO PNT ADR ARG1,ARG2,ARG3,ARG4, ARGS ,ARG6,ARG7,ARG8 


(MOV ARG,RO) 


MOVB ARG1,RO 


CALL CPNT 


MOV AA,-(SP) 


JSR_R1,RTN 
«WORD ADR 
WORD PNT.CT 


STRING 
BE 


SEQ 0133 





| 
GLOBAL EQUATES SECTION 


58 
59 
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PNT... LPNT ADR ARG1,ARG2,ARG3,ARG4,ARGS,ARG6,ARG7,ARG8 


SEQ 0134 


4 
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GLOBAL DATA SECTION | 
} -SBTTL GLOBAL DATA SECTION 
3 p++ 
4 ; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
Z ; IN MORE THAN ONE TEST. 
7 ° 
8 002162 ERRTBL 
002162 LSERRTSL:: 
002162 000000 ERRTYP:: «WORD 0O 
002164 000000 ERRNBR: : «WORD 0 
002166 000000 ERRMSG:: «WORD OQ 
, 002170 000000 ERRBLK:: «WORD 0 
10 002172 022144 PTYPE: .WORD PF PRINT TYPE 
11 002174 000 000 ERRCHR: .BYTE 0,0 sFIRST BYTE LOADED WITH OUTPUT CHARACTER 
12 :SECOND BYTE REMAINS ZERO TO STOP OUTPUT 
13 002176 FFREE:: .BLKW 1 sFIRST FREE WORD IN MEMORY 
14 002200 FSIZE:: .BLKW 1 TSIZE OF FREE MEMORY IN WORDS 
15 002202 FMEM: .BLKW 1 ZCOPY OF FFREE AT END OF INIT SECTION 
16 002204 FMEMS: .BLKW 1 [COPY OF FSIZE AT END OF INIT SECTION 
17 002206 CTABS:: .BLKW 1 START OF CONTROLLER TABLE STORAGE 
18 002210 CTRLRS: .BLKW 1 [COUNT OF UDA CONTROLLERS IN PTABLES 
19 002212 TSTTAB: .BLKW 1 :POINTER TO FIRST CONTROLLER TABLE UNDER TEST 
20 002214 DMPROG: .BLKW 1 :START ADDRESS OF DM PROGRAM 
21 002216 DMEND: .BLKW 1 TEND ADDRESS OF DM PROGRAM(FIRST FREE MEMORY ADR) 
$8 002220 DMENDS: .BLKW 1 ZFREE MEMORY SIZE FROM END OF DM PROGRAM 
24 002222 KTBASA: .BLKW 1 sHIGH TWO BYTES OF BASE ADDRESS FOR KT ACCESS 
c 002224 KTBASO: .BLKW 1 ;LOW BYTE OF ADRESS FOR KT ACCESS 
27 002226 IFLAGS::.BLKW 1 FLAGS FROM INIT ngs FOR TEST 4 
28 000002 ICONT ==BIT1 3; CONTINUE EVENT 
29 000004 IREST ==BIT2 3 RESTART FLAG 
30 000010 ISTRT ==BITS : START FLAG 
000020 ISTRTH==BIT4 START FLAG HOLD FOR T4UPRM ROUTINE 
32 002230 000000 TNUM:  .WORD 0 ZNUMBER OF TEST EXECUTING 
33 002232 URUN: .BLKW 1 sNUMBER OF UNITS TO RUN AT ONE TIME 
34 002234 URNING: .BLKW 1 3 ER OF UNITS STILL ee 
35 002236 UCNT: .BLKW 1 : COUNTER OF UNITS UNDER TEST 
36 002240 INTRCV: .BLKW 1 ; INTERRUPT RECEIVED FLAG FOR INT TESTING 





me ee eer 


| GLOBAL DATA SECTION 


oo 
oo 
ror 
nor 
ae 
ror 


2256 
2260 


oooo oS oo 
Sse Soo 


FW 98 ODBNOAOUS WHO OOnu— 
ss 
Soooooo°0oo 
~ nM 
Ww 
W 
oO 


28 002352 


132 
000000 
000000 


000001 
0 


000000 


125 


104 


FNAME : 
FDATA: 
FILOPN: 
TEMP: 


PAT16C: 


PAT16W: . 
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_ CZUDCBO UDA & DISK DRV DIAG MACRO V04.00 29-APR=-82 17:36:04 PAGE 133 


-ASCZ\ZUDDBO.PAK\ yNAME OF DATA FILE 

“WORD 0 

“WORD 0 :FILE OPEN WHEN NON-ZERO 

“BLKW 12. [TEMPORY STORAGE FOR GMANI RESPONSES 


COUNT OF WORDS IN DATA PATTERN 16 
sWORD SEQUENCE FOR DATA PATTERN 16 


= 

Oo 

P 

o 
OCQoQooooooooo°ooooo— 


natal 


—_ -—-- —- ---- -—- ——--- - >  --- x 
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000376 


oo 


Sse 
Ry 
ae 


WHS DONAUSWN—OOONOUSWN— 
—— 
38 


NNONID @ SS ee 


24 
25 
26 002414 
27 
28 002416 


33 002432 


177777 


CLOCK CONTROL 
yy CSR: or 0 


STIME: .BLKW 2 


NXMAD: .BLKW 1 
KTMEM: .WORD =1 


T2WRR: .BLKW 1 

T2WRO: .BLKW 1 

T2DR: .BLKW 1 

ERROR LOG CONTROL WORDS 

LBUFS: .BLKW 1 

LBUFN: .BLKW 1 

LBUFE: .BLKW 1 

:DISK DIAGNOSTIC DLL CONTROL WORDS 
DLL: -BLKW 1 


DLLDR: .BLKW 1 


SEQ 0137 


CSR OF CLOCK 

7BR LEVEL 

: VECTOR 

sHERTZ es OR 60.) 
sELAPSED TIME 
STATISTICAL REPORT TIMER 


SET TO ALL ONES BY NON-EXISTANT ADDRESS 
:SET TO ALL ONES IF NO KT EXISTS 


pes Hn pe REGION 
WRITE/READ OFFSET 
:DIAGNOSE REGION 


sSTART ADDRESS OF aot -toe IF NONE 
ZADDRESS FOR MORE DATA FOR LOG 
zLAST ADDRESS AVAILABLE FOR LOG DATA 


DOWNLINE LOAD RESPONSE CODE = 0 - DATA, 
31 = PROGRAM PROVIDED, 2= PROGRAM Nor FOUND 
age, NUMBER REQUESTING PROGRAM 

a Ryn FROM DM PROGRAM TO BE RETURNED 


ZADDRESS WHERE PROGRAM STORED 
SIZE OF PROGRAM IN BYTES 
NAME OF PROGRAM IN RADSO 
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GLOBAL TEXT SECTION 


J .SBTTL GLOBAL TEXT SECTION 

3 p++ 

4 : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 

5 > MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

$ : MORE THAN ONE TEST. 

7 ° 

10 > NAMES OF DEVICES SUPPORTED BY PROGRAM 

12 002436 . DEVTYP <LOGICAL DISK DRIVE> 
002436 LSDVTYP: : 
002436 114 117 107 -ASCIZ /LOGICAL DISK DRIVE/ 

13 z 

14 ; TEST DESCRIPTION 

17 002462 : DESCRIPT <CZUDCA9 UDA & DISK DRV DIAG> 
002462 LSDESC:: 
002462 163 132 125 -ASCIZ /CZUDCA9 UDA & DISK 


—_——___—_—_ ——___- -——- —_——_--_-—_---- 


| CZUDCBO_UDA & DISK DRV DIAG MACRO V04.00 29-APR=82 17:36:04 PAGE 136. SEQ 0139 
GLOBAL TEXT SECTION 


} sUNFORMATTED MESSAGES 

3 002516 116 125 115 1488:  .ASCIZ\NUMBER OF BAD BLOCKS\ 

4 002543 104 117 040 T4DMN: .ASCIZ\DO YOU WANT TO CHANGE TESTING PARAMETERS FOR THIS DRIVE\ 
5 002633 102 101 104 T4BBI:  ASCIZ\BAD BLOCK\ 

6 002645 122 105 101 T4RO: .ASCIZ\READ ONLY\ 

7? 002657 127 122 111 eASCIZ\WRITE ONLY 

8 002672 103 110 105 T4WCA: .ASCIZ\CHECK ALL WRITES BY READING\ 

9 002726 122 101 116 T4WCR: .ASCIZ\RANDOMLY CHECK WRITES BY READING\ 

10 002767 104 101 124 T4DP:  .ASCIZ\DATA PATTERN = 0 FOR RANDOM SELECTION\ 

11 003035 105 116 101 T4ECC: .ASCIZ\ENABLE ECC aot _— ION 

12 003070 103 117 115 T4DCA: .ASCIZ\COMPARE ALL DATA READ\ 

13 003116 122 101 116 T4DCR: .ASCIZ\RANDOMLY corners DATA READ\ 

14 003151 105 116 101 T4RET: .ASCIZ\ENABLE RETRIES\ 

15 003170 122 101 116 T4SEK: .ASCIZ\RANDOM ACCESS MODE\ 

16 003213 040 040 000 T40PT7: .ASCIZ\ \ 
17 003216 116 125 115 T4BE: .ASCIZ\NUMBER OF BEGIN/END SETS\ 

18 003247 102 105 107 T4BEG: .ASCIZ\BEGIN BLOCK\ 

19 003263 105 116 104 T4END: .ASCIZ\END BLOCK\ 
20 003275 116 125 115 T4TRC: .ASCIZ\NUMBER OF TRACKS TO TEST\ 
21 003326 124 122°. 101 T4TRAK: .ASCIZ\TRACK\ 
22 003334 116 125- 115 T4GRC: .ASCIZ\NUMBER OF GROUPS TO TEST\ 
23 00336 107 122 117 T4GRP: .ASCIZ\GROUP\ 
24 003373 104 117 040 T4CYL: .ASCIZ\DO YOU WISH 7 tl THE CYLINDERS TESTED\ 

0034 *23 124 101 T4CYLB: .ASCIZ\STARTING CYLIN 
26 003467 105 116 104 T4CYLE: .ASCIZ\ENDING CYLINDER + 
27 003507 116 125 115 T4DPC: <ASCIZ\NUMBER OF WORDS IN DATA PATTERN 16\ 
28 003552 104 101 124 T4DPD: .ASCIZ\DATA WORD\ 
003564 101 122 105 INITWC: .ASCIZ\ARE YOU SURE CUSTOMER DATA CAN BE DESTROYED\ 
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SEQ 0140 


3 FORMAT STATEMENTS USED IN PRINT CALLS 


TGQHED: . 
T4OPT1: 


INP28A: 


T2CMS1: 


: ASCIZ\ZT\ 
“ASCIZ\ZN\ 
CASCIZ\"* RUNTIME “'D16"':""\ 
“ASCIZ\D9"':"N 
-ASCIZ\D9\ 
ASCIZ\"" # ®* ®* ERROR PROCESSING MESSAGE STRING * * *#'N\ 
~ASCIZ\N' REACHED TRANSFER LIMIT = TESTING STOPPED’ N\ 
“ASCIZAN UNIT 16" REACHED ERROR LIMIT = WILL NO LONGER BE JESTED'N\ 
“ASCIZ\N TESTING INTERRUPT ABILITY OF UDA AT ADR POI VEC “D9. TN 
-ASCIZ\ ‘COMPLETED’ N\ 
-ASCIZ\N CUSTOMER DATA WILL BE DESTROYED ON:‘NSS'UNIT''SS"UDA AT''S3'DRIVE'N\ 
“ASELZ\As6uDeHSEHOGESCRD 32N 
ASCIZ\N' MANUAL INTERVENTION NOT ALLOWED. TEST 4 USING DEFAULT PARAMETERS’ W\ 
“ASCIZ\N' ‘THE FOLLOWING SOUESTIONS REFER TO UNIT "D6" UDA AT "O16" DRIVE “DON\ 
~ASCIIAN'DO YOU WISH TO:'N\ 
ASCII\"' 0 = TEST ENTIRE AREA SELECTED‘ N\ 
~ASCII\'' 1 = SPECIFY BEGIN/END SETS TO TEST’N\ 
~ASCII\'! 2 = SPECIFY TRACKS AND CYLINDERS TO TEST'N\ 
~ASCII\'' 3 = SPECIFY GROUPS AND CYLINDERS TO TEST'N\ 
ASCIZ\"" 4 = SPECIFY CYLINDERS TO TEST’ 
“ASCIZ\"LIMITS = LO= 0, HI= 268439455. N\ 
“ASCIZ\ INVALID, CHAR, TYPE, DE MAL NUMBER 0 TO 268435455°N\ 
"ASCIZAN'UNIT. "D6" UBA.AT “O16” DRIVE “D9S\ 
~ASCIZ\N ‘HANUAL INTERVENTION NOT ALLOWED, TEST 2 RUNNING UNATTENDED’ W\ 
~ASCIT\N''TEST #2 MANUAL INTERVENTION ON UNIT "D8" UDA AT O16" DRIVE ‘DON\ 
SASCIIN' TO URITE AND_READ MEMORY :“N\ 
“ASCII\'* W DATA REGION OFFSET’ N\ 
SASCIIN'S R_REGION OFFSET’ N\ 
~ASCII\"'TO RUN A DIAGNOSTIC:"N\ 
“ASCII D_REGION' N\ 
SASCIIN''TO EXIT QUESTIONING: "N\ 
“ASCIIN' ETNA 
ASCIZ\"DATA. REGION AND OFFSET ARE HEX VALUES."N\ 
“ASCIZ\""2_ INPUT ERROR’ N\ 
sASCIZ\''NO LINE ELOCK AVAILABLE FOR TIMING EVENTS'N\ 
-ASCIZAN" CONTENTS. OF ERROR LOG:"" 
"ASCIZ\N'END. OF ERROR LOG™N\ 
~ASCIZ\N'ERROR LOG IS EMPTY’ N\ 
-ASCIZ\"HOST PROGRAM''\ 
-ASCIZ\"UNIBUS ADDRESSING’ 
~ASCIZ\"DISK RESIDENT’ \ 
~ASCIZ\' DISK FUNCTION’ 
~ASCIZ\" DISK EXERCISER’ 
“ASCIZ\"" DM PC:"012\ 
“ASCIZ\"" UDA AT, "016\ 
“ASCIZ\"" DRIVE "D9\ 
“BYTE 0 :NULL TO PRINT NOTHING 
»ASCIZ\R6RORGR6\ ;USED TO PRINT BASIC LINE OF ERROR MESSAGE 


4 
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1 006450 X1A: 

2 006450 X2A: 

3 006450 X3A: . 

$ 006450 0421114) XGA: -ASCIZ\"'1 DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS'N\ 

§ 006547 122-065-122 XT: ASCIZ\RSR6"UDA HAS MORE THAN ONE VECTOR, BR LEVEL OR BURST RATE’ N\ 

6 00664 193 063, «= 198.-X2:—TASCIZ\RSRG"TWO UNITS SELECT. THE SAME DRIVE N\ 

7006712 122 065 122 X3:  — SASCIZ\RSR6'MORE THAN EIGHT DRIVES SELECTED ON THIS UDA'N\ 

8.006775 192 «084 == XG: ~—«TASCII\RG'NOT_ENOUGH ROOM IN MEMORY TO TEST INE UNITS SELECTED'N\ 

9.007066 042 120 114 -ASCIZ\ PLEASE START PROGRAM OVER AND TEST FEWER UNITS AT A TIME’N\ 

10 007162 = 122-064 = 042 XS: «= CASCIZ\RG"'CHECKSUM ERROR IN DM PROGRAM FILE "N\ 

11 007252 128064 © OGG XG: SASCIZARG TABLE CONSISTANCY ERROR. PLEASE RE-LOAD PROGRAM’ N\ 

12 007317 = 122064042 X7: «= TASCIZ\RG"ERROR IN DM PROGRAM FILE. DM PROGRAM NOT FOUND’ N\ 

13 007403 122065122 XB: ASCIZ\RSR6'"TWO UDA'S USE THE SAME VECTOR'N\ 
15 007450 122 «© 065-—S 042 X38: ==. ASCII\RS"MEMORY ERROR TRYING TO READ UDA REGISTERS’ N\ 

16 007526 = 042-—S—ss103-—s«10 ~ASCIIN''CHECK UNIBUS SELECTION SWITCHES ON UDA MODULE M7161'N\ 

17 007614 = 042——isd172—s«122 ASCII\''OR UNIBUS' N\ 

18 007630 0422S 117,— «2122 “ASCIZ\" ‘OR ' 
13 907640 12806542 X21: ASCIINRS-UDA RESIDENT DIAGNOSTICS DETECTED FAILURE" NRB\ 
20007720 042 122 105 “ASCIZ\"REPLACE UDA MODULE M716'02N 
¢) 007755 = 128065042 x22: ASCTA\R5™STEP BIT DID NOT, SET IN UDASA REGISTER DURING INITIALIZATION’ N\ 

22 010056 042 «= 123«12K “ASCIZ\"'STEP BIT EXPECTED "‘O16NR8R7\ 
25010113 122,065.42 X23A: — CASCIIARS" Wa DID NOT CLEAR RING STRUCTURE IN HOST MEMORY DURING INITIALIZATION’ W\ 
24 010225 104 071 062 -ASCII\D9"” WORDS WERE TO BE CLEARED STARTING AT ADDRESS "O16N\ | 
25 010313 = 042, «106s “ASCII\''FIRST SEVERAL WORDS NOT CLEARED (UP TO 6):'N\ 
26 010370 123 «© 066-~—s(2 -ASCIZ\S6" "ADDRESS "S4""CONTENTS’ N\ 
27 010421 «= 123. s«067—Ss«117 -X23B: +S ASCIZ2\$7016S5016N\ 
28 0104 122 065 042 X24: ~~ CASCIINRS"'UDASA REGISTER DID NOT GO TO ZERO AFTER STEP 3 WRITE OF INITIALIZATION'N\ | 
29010550 042 120 125 ~ASCIZ\"PURGE/POLE DIAGNOSTICS WERE REQUESTED’ NRBR 

30 01 122 065 += 042 X25: + ASCIINRS" UDA DID NOT RETURN CORRECT DATA IN UDASA REGISTER DURING INITIALIZATION'N\. 
31010741 042 040 040 “ASCIZ\'" UDASA EXPECTED ''O16NR8R 

32 010776 = 128065042 x26: ASCIINRS"DATA COMPARISON ERROR DURING DIAGNOSTIC PORT LOOP TEST'N\ 

33011071 042 040 040 SASCII\'’ DATA SENT TO UDASA ‘"‘O16N\ 

34011125 042 040 040 "ASCIZ\""_ RECEIVED. FROM UDASA. “DIGNR7\ 

35 O11164 122065 Oke x27: ASCIINRSVUDASA REGISTER DID NOT CHANGE AFTER WRITING TO IT*N\ 

36011252 04211 is«d18 “ASCIZ\OIN PORT LOOP DIAGNOSTIC’ NRER7\ 

37011317 122-065-4228: TASCIZ\RS"UDA DID_NOT INTERRUPT. THE PDP=11" NR7\ 

38 011361 12 OG O42 29: ASCII\RS'UDA INTERRUPTED AT DIFFERENT BR LEVEL THAN SPECIFIED IN HARDWARE"N\ 

39 011466 389 042 121—Ss«125 ~ASCIIN\"QUESTIONS. INTERRUPT WAS AT BR LEVEL “O3N\ 
40011540 9042-10310 “ASCII\:‘CHECK PRIORITY PLUG ON UDA MODULE W7161°N\ 
41011612 0422 117_—S «122 “ASCIZ\"OR CHANGE HARDWARE QUESTIONS" 
42011652 122 065 042 X30: — :ASCIZ\RS''UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE RUNNING DM PROGRAM’ WR8\ 
43 011765 122 «= 065 S042 X31: = LASCII\RS"'NO_INTERRUPT RECEIVED FROM DM PROGRAM FOR 3 MINUTES’ N\ 
44012055 042 101 123 ASCIZN’ ASSUME PROGRAM IS HUNG’ N\ 
43 012107 128 «065042 X32: SASCIZARS MESSAGE BUFFER RECEIVED FROM DM PROGRAM WITH UNKNOWN REQUEST NUMBER'N\ 
46 012220 122 065 042 X35: — [ASCIZ\R5"DM PROGRAM ASKED FOR DATA VE" 
47 012300 = 122065048 X36: ASCIIARS"NO_INTERRUPT RECEIVED FROM UDA FOR 30 SECONDS W\ 
48 012362 = 042 is‘d127—Ss*110 ASCIZ\'WHILE LOADING DM PROGRAM’ N\ 
49 012616 122 065 062 x37: — LASCIZ\RS"'UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE LOADING DM PROGRAM NRER7\ 
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CZUDCBO_ UDA & DISK 
GLOBAL TEXT SECTION 
1 012533 oe 115 105 XMSG1: .ASCIZ\"MESSAGE BUFFER CONTAINS:‘'N\ 
2 012567 12 063 117 XMSG2 -ASC1Z\$30168101681016S101681016S1016S1016N\ 
3 012634 122 065 042 XPKT1: .ASCII\RS"'RESPONSE PACKET FROM UDA DOES NOT. pds EXPECTED DATA’ N\ 
4 012730 On¢ 105 114 eASCIIN" EITHER a patate tent ERROR MSTA TUS OR PACKET WAS NOT RECEIVED CORRECTLY’ W\ 
5 013040 12 063 042 ~ASCIZ\S3°'COMMAN cKET + a aa la PACKET RECEIVED’'N\ 
6 013125 123 066 117 XPKT2 ASCIZ\$6076S10168140765101 016N\ 
7 013154 042 040 040 XSA: eASCIZ\"' UDASA CONTAINS ‘‘O16N\ 
3 013205 042 122 105 XFRU: vo id ‘REPLACE UDA MODULE M7161''N\ 
13 
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Cee ee 
VMFW OOOO UE wr 
oo SCCOOoOOoOCoOo 
a ae es es oS 
Ww Ww 
™m 
wi 
™ 


—} ed ed 
WON 


013272 
v 013274 
22 013276 
23 013276 
013276 
013302 
013306 
013310 
24 013312 
25 
26 013314 


St 
WG 
Ww 
Ww 
oa 


177777 


177777 
177777 


012746 


000002 


012746 


000002 


012746 
0 


000002 


004137 
006775 
000000 


004137 
007162 
000000 


004137 
007232 
000000 


00450 
0° 2276 


006450 
022276 


006450 
022276 


022276 


022276 


022276 


-SBTTL GLOBAL ERROR REPORT SECTION 


s+¢ 

: THE >: -— REPORT SECTION CONTAINS MESSAGE get AREAS 

; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
; (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


SVCINS= =1 3 LIST INSTRUCTIONS, SHIFTED _ 
SVCTST= =1 : LIST TEST TAGS, SHIFTED RIGHT 
SVCSUB= =1 ; LIST SUBTEST TAGS, SHIFTED RIGHT 
SVCGBL= -1 : LIST GLOBAL TAGS, SHIFTED RIGHT 
SVCTAG= =1 : LIST OTHER TAGS, SHIFTED RIGHT 


BGNMSG ERROO1 
PNTB X1,4X1A 
MOV #X1A,=(SP) 
JSR R1,LPNTB 
“WORD ONT CT 
ENDMSG . * 
BGNMSG ERROO2 
PNTB X2,AX2A 
MOV #X2A,=(SP) 
JSR R1,LPNTB 
WORD Nar CT 
ENDMSG : . 
BGNMSG ERROO3 
PNTB X3,4X3A 


MOV #X3A,-(SP) 
JSR_R1,LPNTB 
D x3 


“HORD PNT.CT 
ENDMSG f - 


BGNMSG ERRO04 
PNTB X4 
JSR R1,LPNTB 
WORD x4 


-WORD PNT.CT 
ENDMSG “a nti 


BGNMSG ERROOS 
PNTB X5 
JSR_R1,LPNTB 
-WORD X5 


-WORD P T 
ENDMSG sais pte 


BGNMSG ERRO06 
PNTB X6 
JSR_R1,LPNTB 
-WORD X6 


ENDMSG -WORD PNT.CT 


SEQ 0143 
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56 
013360 
rs 013362 


1 
42 013364 
43 013364 


SAX UN2SSH 
ESEEEE FEE 


wMvin 
SE SWWWANNNNR ee So 


Aon 
—OO0an 
NOAA AAW RUORNOSOOROOARE Nox 


FEREESESE EERE SEES 


WUANRRIN 2 2 2 OS NOONE ES 
OSe 


KALA 
SOoooooeosS GOococooeoeoeo ocooooooooeocecoeo oooo 


Sheiatatotwiadad atataaiaataaatat Sota atatiataiaatababatad ababad 
NOLLS Noe 


WAIANAE 
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004137 
007317 
000000 


012746 
004137 
007403 
000002 


010291 
000301 


022276 


006450 
022276 


022276 


177775 


022276 


100000 


024604 
022276 


002176 
022276 


024604 


BGNMSG ERROO7 
PNTB X7 


ENDMSG 


BGNMSG ERROO8 
PNTB X8,4X8A 


ENDMSG 
BGNMSG ERRO20 
PNTB X20 


ENDMSG 
BGM4SG ERPO21 
MOV R2,R1 
WAB Ri 
AND 2,R1 
ASR R1 


INC R1 
PNTB X21,R2,R1 


ENDMSG 
BGNMSG ERRO22 


BIC #SA,ERR,UDARSD 
PNTB X22,UDARSD,R2 


PRINTX #XFRU 
ENDMSG 


BGNMSG ERRO23 
PNTB X23A,R1,F FREE 


TST ~{R2) 


SEQ 0144 


JSR_R1,LPNTB 
«WORD X7 
WORD PNT.CT 


MOV #X8A,-(SP) 
JSR _R1,LPNTB 
-WORD x8 

«WORD PNT.CT 


JSR R1,LPNTB 
«WORD X20 
«WORD PNT.CT 


BIC #*C<2>,R1 


MOV R1,-(SP) 
MOV R2,-(SP) 
JSR_R1,LPNTB 
«WORD X21 


«WORD PNT.CT 


MOV R2,-(SP) 
MOV UDARSD,-(SP) 
JSR R1,LPNTB 
«WORD x22 

-WORD PNT.CT 


MOV FFREE,-(SP) 
MOV R1,-(SP) 
JSR_R1,LPNTB 
-WORD X23A 
«WORD PNT.CT 


oo 
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oon 


68 013534 005712 ERR23A: TST (R2) 

69 013536 001410 BEG ERR23B 

0 013540 PNTB X238,R2, (R2) 
013540 011246 MOV (R2),=(SP) 
013342 010246 MOV R2,~(SP) 
013544 004137 022276 JSR_R1,LPNTB 
013550 010421 WORD X23B 
013552 00000 “WORD PNT.CT 

1 013554 00530 DEC Ré 

72 013556 001403 BEQ ERR23C 

73 013560 005722 ERR238: TST (R2)* 

74 013562 005303 DEC R3 

75 013564 001363 BNE ERR23A 

76 013566 ERR23C: PNTB XFRU 
013566 004137 022276 JSR_R1,LPNTB 
013572 013205 WORD XFRU 
013574 000000 “WORD PNT.CT 

77 013576 ENDMSG 

79 013600 BGNMSG ERRO24 

80 013600 PNTB X24,R2 
013600 010246 MOV R2,-(SP) 
013602 004137 022276 JSR_R1,LPNTB 
013606 010435 ~HORD X24 
013610 000002 “WORD PNT.CT 

81 013612 ENDMSG 

83 013614 BGNMSG ERRO2S 
013614 PNTB X25,R1,R2 
013614 MOV R2,=(SP) 
013616 MOV R1.-(SP) 
013620 022276 JSR_R1.LPNTB 
013624 WORD X25 
013626 “WORD PNT.CT 

85 013630 ENDMSG 

87 013632 BGNMSG ERRO26 

88 013632 PNTB X26,R2,2(R4) 
013632 016446 000002 MOV 2(R4).-(SP) 
013636 010246 MOV R2,-(SP) 
013640 004137 022276 JSR_R1,LPNTB 
013644 010776 WORD X26 
013646 000004 “WORD PNT.CT 

89 013650 ENDMSG 

91 013652 BGNMSG ERRO27 

92 013652 PNTB X27,2(R4) 
013652 016446 000002 MOV 2(R4),=(SP) 
013656 004137 022276 JSR_R1,LPNTB 
013662 011164 ~WORD X27 
013664 000002 “WORD PNT.CT 

95 013666 ENDMSG 

95 013670 BGNMSG ERRO28 

96 013670 PNTB X28 
013670 004137 022276 JSR_R1,LPNTB 
013674 011311 ~WORD X28 
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013676 
97 013700 
98 
99 013702 
100 HEA 


So 
te) 


ss 
od hb 
m-o 


oooooo 
4 ~ 
Ww 
N“N 
wi 
So 


ab) ns ss ts A st 


NEPONORONOR @ 
MEWN—O OONOULW 


— 2) etd od 
LNPononony 
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000000 


gneiss 
37 


011581 
000002 


010146 


000002 


004137 
011765 
000000 


004137 
0 

004737 
004737 
004737 


004137 
012220 
000000 
004737 


004137 
012300 
000000 


022276 


022276 


022276 


022276 


014146 


014054 


014054 


022276 


014146 


022276 


ENDMSG 


BGNMSG ERRO29 
PNTB X29,R1 


ENDMSG 


BGNMSG ERRO30 
PNTB X30,R1 


ENDMSG 
BGNMSG ERRO31 
PNTB X31 


ENDMSG 


BGNMSG ERRO32 
PNTB X32 


CALL MSGPKT 
ENDMSG 


BGNMSG ERRO33 
CALL PNTPKT 
ENDMSG 


BGNMSG ERRO34 
CALL PNTPKT 
ENDMSG 


BGNMSG ERRO35 
PNTB X35 


CALL MSGPKT 
ENDMSG 


BGNMSG ERRO36 
PNTB X36 


ENDMSG 


«WORD PNT.CT 


MOV R1,-(SP) 
JSR sae 


WORD X 
«WORD PNT.CT 


MOV R1,-(SP) 
JSR RI, <LPNTB 


- WORD 
«WORD PNT.CT 


JSR R1,LPNTB 
«WORD X31 
«WORD PNT.CT 


JSR _R1,LPNTB 
-WORD X32 
«WORD PNT.CT 


JSR _R1,LPNTB 
WORD X35 
«WORD PNT.CT 


JSR_R1,LPNTB 
«WORD X36 
«WORD PNT.CT 


SEQ 0146 


ee 


in 
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133 014026 
134 014026 


01 
iZ 014052 
141 014054 
01 


ooo 
3 
Sssss 
FRESE 


So 
= 


So 
— 
™ 
<b 


142 
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144 014072 
145 014074 
146 
147 


159 


14104 


ooooo 
22232542544 


146 


Soooooqooooooooo0cecOo SoCoCoCooCoOoOo 
cme a a ks ek ws ws ss = SI st a a ee SH 
E at et et et et et et et et et et et et & 


POPNPENPNPNPoNony 
YuUwyn= rom “ 
NOSNAUANA 


010146 


0 
000002 


004137 
007450 
000000 


022276 


022276 


022276 


000104 
000020 
000014 
000002 
000002 
022276 


000004 
000004 


022276 
000016 
000272 
000005 
000014 
000012 
000010 
000006 
000004 
000002 
022276 


000016 





BGNMSG ERRO37 


ENDMSG 


BGNMSG ERRO38 
PNTB 


ENDMSG 


PNTPKT: 


PNTPKL: 


MSGPKT: 


MSGPKL: 


PNTB X37,R1 


x38 


PNTB XPKT1 


MOV R4,R1 
ADD #HC.CPK,R1 
MOV R4,R2 
ADD #HC.MPK ,R2 


MOV #12.,R3 
PNTB XPKT2,2(R1),(R1),2(R2), (R2) 


ADD #4,R1 
ADD ay +R2 


DEC 
BNE PNTPKL 
RETURN 


PNTB XMSG1 


MOV os RING(RS) ,R4 


ADD #HC.BF2,R4 


MOV #5, 
PNTB XMSG2,(R4),2(R4),4(R4),6(R4) 8. (R4),10.(R4),12.(R4) 


ADD #14. ,R4 


MOV R1,-(SP) 
JSR_R1,LPNTB 
«WORD X37 

«WORD PNT.CT 


JSR _R1,LPNTB 
-WORD X38 
«WORD PNT.CT 


JSR R1,LPNTB 
«WORD XPKT1 
«WORD PNT.CT 


MOV (R2),=(SP) 


«WORD PNT.CT 


JSR _R1,LPNTB 
«WORD XMSG1 
WORD PNT.CT 


MOV 12.(R4),-(SP) 
MOV 10.(R4),=-(SP) 
MOV 8.(R4),-(SP) 
MOV 6(R4) ,=(SP) 
MOV 4(R4),-(SP) 
MOV 2(R4),-(SP) 
MOV (R4),=(SP) 
JSR _R1,LPNTB 

° XMSG 

«WORD PNT.CT 


SEQ 0147 


er 
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160 014240 005303 DEC R3 
161 014242 001353 BNE MSGPKL 
162 014244 000207 RETURN 


SEQ 0148 


nT oe 





| 


reve 


MIMIPON 


ONOUS wR 
RVSONNERO HV 


pele lojoleleleolololelololololololololololololololololololololololoj—) 
Fat et et et et et et Bet De at bt et ae 


WWUIWNANWIWIRININNIN 


, 
Nm 
&* 


Nonny a 

N—OVONOMUSwh 
ae ss ht sa et es a ss a a st 4 ss a ts ts 
Sak att tet et et et et et et et et te 
PEScpr a a deter gare ted 


006309 
006 


004737 


002230 


006421 
000004 


006436 
000004 


006402 
006364 


020322 
022276 


025356 


000015 
022114 
000006 


022214 
020022 


002172 WNCON: 
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SEQ 0149 
BGNMSG ERRRTN ERROR REPORT ROUTINE 
mov TNUM.R2 iGeT TEST NUMBER 
MOV #BASL3,R3 ‘eet ADDRESS OF DRIVE PRINT LINE 
TST 4(R4) [CHECK IF DRIVE NUMBER GIVEN 
BPL 1$ ‘BRANCH IF SO 
MOV #BAS,R3 
1$: PNTB BASLN, TNAMES=2(R2) ,ABASL1, (R4) ,ABASLZ, (R5) ,R3,4(R4) 
MOV 4(R4),=(SP) 
MOV R3,-(SP) 
MOV (R5),-(SP) 
MOV #BASL2,-(SP) 
MOV (R4) »=(SP) 
MOV #BASL1,-( 
MOV THAMES <2(R2), -(SP) 
JSR R1,LPNTB 
BASLN 
ASSUME C.UADR EQ 0 
CALL RNTIME :GET RUNTIME PARAMETERS 
PRINT #CR SADVANCE TO NEW LINE 
MOVB #CR #CR, <RO 
ADD #6,R4 ZINCREASE R4 TO POINT TO MESSAGE T POINTER 
MOV (R4)+,R2 [GET MESSAGE POINTER 
ASL R [DOUBLE TO MAKE BYTE OFFSET 
ADD DMPROG,R2 SADD TO START OF MESSAGE STRINGS 
ADD @DMPROG,R2 SADD SIZE OF MAIN PROGRAM 
TSTB (R2) : CHECK FIRST BYTE 
E NCON F ZERO 
INC R2 : INCREMENT TO NEXT BYTE 
MOV #PX,PTYPE SCHANGE TO EXTENDED OUTPUT 
CALL OSTRNG SOUTPUT ACCORDING TO STRING 


ENDMSG 





; CZUDCBO UDA & DISK DRV DIAG MACRO V04.00 29-APR-82 17:36:04 PAGE N42 SEQ 0150 ¢ 
| GLOBAL ERROR REPORT SECTION ¢ 


1 000001 SVCINS= 1 : LIST INSTRUCTIONS, ot LA RIGHT 
2 00001 SVCTST= 1 ; LIST TEST TAGS, SHIFTED RIGHT 

3 000001 SVCSUB= 1 : LIST SUBTEST TAGS, SHIFTED RIGHT 
4 0001 SVCGBL= 1 3 LIST GLOBAL TAGS, SHIFTED RIGHT 
5 000001 SVCTAG= 1 : LIST OTHER TAGS, SHIFTED RIGHT 
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-SBTTL GLOBAL SUBROUTINES SECTION 
sMEMORY ALLOCATION ERROR 
;THIS ROUTINE PRINTS A SYSTEM FATAL ERROR AND EXITS THE TEST 


NOui lw 


06 FMERR: ERRSF 4,,ERRO04 

06 104454 TRAP CSERSF 
10 000004 «WORD 4 

12 000000 -WORD 0 

14 013314 «WORD ERROO4 
16 DOCLN : ABORT 

16 104444 TRAP CSDCLN 


a a 
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1 3;ALOCM 

2 3 

? sALLOCATE A BLOCK OF FREE MEMORY. REPORT ERROR IF MEMORY EXHAUSTED. 

5 : INPUTS: 

6 3 R1 - wie OF WORDS TO ype & 

7 3 FFREE = FIRST FREE WORD IN MEMORY 

. w= * SIZE OF FREE MEMORY AVAILABLE IN WORDS 
10 3 oy - es OF hes WORD A aaa MEMORY 

11 ; FFREE = NEW FIRST FREE WORD IN MEMORY 

12 FSIZE = SIZE OF FREE MEMORY LEFT AFTER ALLOCATION 

13 [SYSTEM FATAL ERROR WILL BE REPORTED IF NOT ENOUGH MEMORY AVAILABLE 

19 ‘AND ENTIRE PROGRAM WILL BE STOPPED. 

16 014420 ALOCM: PUSH FFREE ;SAVE FFREE AT ENTRY 

014420 013746 002176 MOV FFREE,-(SP) 

17 014424 160137 002200 ag R1,FSIZE sREDUCE SIZE OF FREE MEMORY 

18 014430 002766 BLT FMERR SREPORT ERROR IF NOT ENOUGH MEMORY 
19 014432 060101 ADD R1,R1 CHANGE WORDS TO BYTES 
20 014434 060137 002176 ADD R1 *FFREE ;CALCULATE NEW START OF FREE MEMORY 


21 014440 POP R1 3GET START OF ALLOCATED MEMORY 
014440 012601 MOV (SP)+,R1 
22 014442 000207 RETURN 





SEQ 0152 


aon 
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1 ;HCOMM 

c : 

3 ;ALLOCATES MEMORY FOR HOST COMM AREA AND PACKET BUFFERS WITH ONE 

4 sDESCRIPTOR IN EACH RING. TO BE CALLED AFTER INITIALIZING 

z zA CONTROLLER WITH SA.MSG=0 AND SA.CMD=0. 

7 ; INPUTS: 

8 RS = ADDRESS OF CONTROLLER TABLE 

9 ‘OUTPUTS: 

10 3 CONTROLLER TABLE POINTING TO HOST COMM AREA 

11 3 RING POINTERS TO PACKETS 

\¢ 3 R4 = ADDRESS OF HOST COMM AREA 

14 014444 012701 000200 HCOMM: MOV #HC. Siz/e. Ry ;GET SIZE OF AREA L ALLOCATE 

15 014450 004737 014420 CALL ALOCM TALLOCATE THE MEMORY 

16 014454 010104 MOV R1,R4 3GET ADDRESS OF HOST COMM AREA 
17 014456 010465 000016 MOV Ra C.RING(RS) PLACE IN CONTROLLER TABLE 

18 014462 062701 000020 ADD # HC.MPK, R1 : COMPUTE * ART OF MESSAGE PACKET 
19 014466 010164 000004 MOV R1,HC. MSG(R4) =PLACE IN RING 
20 014472 062701 000064 ADD at toi ;COMPUTE START OF COMMAND PACKET 
21 014476 010164 000010 MOV R1,HC.CMD(R4) PLACE IN RING 
22 014502 000207 RETURN 





aa 2 


ee ee a 
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} ;TINIT 
: TINITIALIZE VARIABLES FOR TEST 
5 ; INPUTS: 
6 R1 = TEST NUMBER 
? SOQUTPUTS: 
3 : LOUE - CLEARED (DELETES ERROR LOG) 
10 : FSIZE = FROM FMEMS 
1 : TNUM = TEST NUMBER FROM R1 
1 : ALL LM REGISTERS CLOBERED 
14 014504 004737 025334 TINIT: CALL RESET :RESET ALL DEVICES 
15 014510 005037 002406 CLR LBUFS [CLEAR ERROR LOG BUFFER POINTER 
16 014514 013737 002202 002176 MOV FMEM,FFREE TINIT FFREE 
17 014522 013737 002204 062200 MOV FMEMS,FSIZE TINIT FSIZE 
18 014530 020137 002230 CMP RT TNOM [SEE IF SAME TEST RUNNING 
19 014534 001007 BNE TINITR [IF NOT, GO TO READ DM PROGRAM 
20 014536 013737 002216 002176 MOV DMEND,FFREE [CHANGE FREE MEMORY TO LEAVE 
21 014544 013737 002220 002200 MOV DMENDS,FSIZE : DM PROGRAM ALLOCATED 
22 014552 000207 RETURN 
24 014554 004737 014566 TINITR: CALL READDM ;READ DM PROGRAM 
25 014560 010137 002230 MOV R1,TNUM ;STORE TEST NUMBER TO SHOW DM PROGRAM IN MEMORY 
26 014564 000207 RETURN 





ao 


ae soharesenomninciiind cine 
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=S8 OONAUESWN “OO ONAUEWwr 


PSTD ee et et et 2s et 2s a et 


013737 


013352 
104444 





;READDM 
READ A DM PROGRAM INTO FREE MEMORY 
; INPUTS: 
; R1 = TEST NUMBER 
; OUTPUTS: 
: DMPROG = POINTER TO START OF DM PROGRAM IN MEMORY 
: ean nd a HANGED 
Y CLEAR IF NO ERROR, CARRY SET IF PROGRAM NOT FOUND 
ZALL REGISTERS BUT R1 ARE USED AND PREVIOUS CONTENTS DESTROYED 
002176 002214 READDM: MOV FFREE,DMPROG 2GET STORAGE ADDRESS 
024666 CALL_RDREC 
BCS README :CHECK IF ERROR 
002176 002216 MOV FFREE.DMEND 3SAVE END OF ADDRESS OF DM PROGRAM 
002200 002220 a te 3 AND CURRENT SIZE OF FREE MEMORY 
README: ERRSF 7,,ERROO7 REPORT DM PROGRAM NOT FOUND 
TRAP CSERSF 
«WORD 7 
«WORD 


0 
«WORD ERROO7 
TRAP CSOCLN 


DOCLN 


an 





acl evap 12 
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;RUNDM 


SLOAD AND RUN A DM PROGRAM IN THE CONTROLLERS. RETURN WHEN ALL 
:0M PROGRAMS HAVE TERMINATED. 


1 

2 

3 

4 

5 

6 3 INPUTS: 

7 : TSTTAB = POINTER TO FIRST CONTROLLER TABLE 

8 R1 = NUMBER OF CONTROLLERS TO TEST 

9 S IMPLICIT INPUTS: 

Hs ‘ourpurso" PROG = POINTER TO START OF DM PROGRAM IN MEMORY 

12 Z SET IF NO CONTROLLERS SUCCESSFULLY STARTED 

\3 TALL REGISTERS ARE USED AND PREVIOUS CONTENTS DESTROYED. 

15 014632 010137 002232 RUNDM: MOV R1,URUN SAVE NUMBER OF UNITS TO RUN 
1 014636 005037 002234 CLR URNING ;CLEAR NUMBER OF UNITS RUNNING 
18 ;LOAD DM PROGRAM INTO EACH CONTROLLER 
20 014642 013737 002232 002236 MOV URUN,UCNT 3SET COUNTER OF UNITS 

21 014650 013705 002212 MOV TSTTAB,RS GET FI@ST CONTROLLER TABLE 

22 014654 LDDM: 
26 014654 005065 000014 CLR C.FLG(RS) CLEAR ALL FLAGS 

28 014660 116537 000002 002074 MOVB C.UNIT(RS),LS$LUN ;SEE IF UNIT TO BE TESTED 

29 014666 005765 000002 TST C.UNIT(RS) 

30 014672 100405 8MI LDNEXT IF NOT, DON'T LOAD THIS UNIT 
31 014674 ASSUME CT.AVL EQ BIT15 

32 014674 004737 022532 CALL LOADDM LOAD THE DM PROGRAM 

33 014700 001402 BEQ LDNEXT IF ERROR, GO TO NEXT CONTROLLER 
34 014702 005237 002234 INC URNING IF NO ERROR, COUNT UNIT RUNNING 
35 014706 062705 000046 LDNEXT: ADD #C.SIZE,R5 sMOVE TO NEXT CONTROLLER TABLE 
36 014712 005337 002236 DEC UCNT CHECK IF MORE CONTROLLERS 

3 014716 001356 BNE LDDM LOAD NEXT 
4 CHECK IF ANY CONTROLLERS LOADED 
| 014720 005737 002234 TST URNING ANY UNITS LOADED? 
43 THE DM PROGRAMS ARE NOW IN CONTROL 

44 ;RESPDM MUST BE CALLED TO RESPOND TO THEIR REQUESTS 


45 
46 014724 000207 RETURN 


an 









1 
2 
3 
4 
5 
6 014726 
7? 014732 
8 014740 
9 014744 
10 014752 
11 014754 
12 014762 
13 014770 
14 014772 
15 015000 
16 
17 
18 
19 015002 
20 015004 
21 015010 
22 015012 
015012 
015014 
015016 
015020 
23 015022 
24 
25 
26 
27 015024 
33 015024 
34 015030 
35 015032 
36 015040 
37 015042 
38 015044 
39 015052 
40 015054 
015054 
015056 
015060 
015062 
41 015064 
42 015066 
43 015066 
015066 


WOW—-OW o> = 
NA SN OWW 
nu 
~ 
ion 


103405 
104455 
000037 
000000 
013732 
000424 


104422 


000002 
000010 


000004 


000002 


002354 
002366 


002364 
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002236 
000014 


002074 
000014 


000014 


00042 


000040 





;RESPDM 


RESPOND TO DM REQUESTS. RETURN WHEN ALL DM PROGRAMS 
SHAVE TERMINATED. 


RESPDM: MOV TSTTAB,RS GET CONTROLLER TABLE ADDRESS 
MOV URUN,UCNT SET COUNTER OF UNITS 

RESPCT: MOV C.RING(RS) ,R4 GET HOST COMM AREA ADDRESS 

BIT #CT.RN,C.FLG(RS) CHECK IF PROGRAM RUNNING 


BEQ RSPNXT IF NOT, LOOK AT NEX 
MOVB C.UNIT(RS) ,LSLUN STORE UNIT NUMBER UNDER TEST 
SEE IF INTERRUPT RECEIVED 


BIT esp in »MSG,C.FLG(RS) 


BNE RSPIN 
BIT + 7 C.FLG(RS) 
BEQ RSPO 


CHECK IF UDA STILL RUNNING 


MOV (R5),R3 
MOV 2(R3),R1 


:1F SO, LOOK AT PACKET 
IF COMMAND HAS BEEN SENT 
31F NOT, SEND ONE 


Hy ADDRESS OF UDAIP 


BEQ RSPTM :1F ZERO, UDA STILL RUNNING 
ERRDF 30,,ERRO30 ZREPORT UDA HAS FATAL —, 
TRA CSERDF 
GORD 30 
eWORD 0 
-WORD ERRO30 
BR RSPDRP ;DROP CONTROLLER FROM TESTING 
;CHECK FOR TIMEOUT OF RESPONSE 
RSPTM: 
TST KW. 3 a SEE " A CLOCK My eraren 
BEQ RSPN =D ON'T TIME IF NO CLOCK 
a KW. ELs2, C.TOH(RS) : COMPARE TO TIMEOUT COUNTER 
BNE R 
BLO RW.ELC. dagers: :I1F TOO MUCH TIME ELAPSED SI 
H LAP SINCE LAST INTERRUPT 
RSPTMO: ERRDF 31,,ERRO31 S REPORT TIMEOUT ERROR He 
TRAP CSERDF 
-WORD 31 
-WORD 0 
BR RSPDRP ;DROP CONTROLLER FROM reste — 
RSPNTO: 
BREAK 


sALLOW DRS TO SEE TERMINAL INPUT 
TRAP CSBRK 


SEQ 0157. 





1 
2 
3 015070 
4 015074 
5 015076 
6 015104 
7 015106 
8 015110 
9 015116 
10 015120 
015120 
11 
12 
13 
14 015122 
15 015126 
16 015132 
17 015134 
18 
19 
20 
21 015136 
22 015144 
23 015150 
24 015152 


005737 
0 


103401 
104424 


062705 
005337 
001302 
000674 


042765 
005 


000207 


002354 


002366 002372 


002364 002370 


000046 
002236 


000012 000014 


002234 
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sCHECK FOR TIME TO PRINT STATISTICAL REPORT 


RSPNXT: TST KW. 2 a 
EQ 


RSPN 
CMP KW. EL2, STIME+2 
BHI RSPR 

BNE RSPN NRP 

CMP KW. EL ” tee 

BLO RSPN 

RSPRPT: DORPT 


SWITCH TO NEXT CONTROLLER 


RSPNRP: ADD #C.SIZE,R5 
DEC UCNT 
BNE RESPCT 
BR RESPDM 


sREMOVE A CONTROLLER FROM TESTING 
RSPDRP: BIC #CT.RN+CT.MSG,C.FLG(RS) 
RNING 


DEC U 
BNE RSPNXT 
RETURN 





sANY CLOCK ON SYSTEM? 
;BYPASS IF NOT 
: A STATISTICAL REPORT 


PRINT THE REPORT 
TRAP C$DRPT 


ee TO NEXT TAB 


3L00 TROLLER 
;LOOK AT FIRST CONTROLLER AGAIN 


CLEAR PROGRAM RUNNING 

REDUCE RUNNING CONTROLLERS COUNT 
:I1F ANY STILL RUNNING, LOOK AT THEM 
ELSE RETURN TO TEST SECTION 


SEQ 0158 





oooooo 
so et 


“SOV ONAUESWN—OVOONOAUSwr— 


oCooo°o°ooo 


Mn eS ae OO OS Os 
— td od 


26 015234 
27 015242 


012700 


001010 


032764 
001004 


026564 
001405 


104455 


000741 


032765 
001445 





000204 
000020 


000205 
000030 


000037 


000044 


000020 


D 13 
CZUDCBO UDA &.DISK DRV DIAG MACRO V04.00 29-APR=82 17:36:04 PAGE 151 
GLOBAL SUBROUTINES SECTION 


000014 


000032 


000020 


000014 


SEQ 0159 


sCONTROLLER HAS RESPONDED, LOOK AT MESSAGE PACKET 
sCHECK FOR PROPER OPCODE IN END PACKET 


RSPIN: MOV #0P.END+0P.SSD,RO :GET SEND DATA END PACKET OPCODE 

at ateane” oC. FLGC(RS) :LOOK IF SEND DATA OR RECEIVE DATA 

MOV #0P.END+OP.RSD,RO CHANGE TO RECEIVE DATA END PACKET OPCODE 
RSPMWR: CMPB_RO,HC.MPK+P.OPCD(R4) ;COMPARE TO OPCODE IN END PACKET 


BNE RSPERR 
:LOOK AT STATUS CODE 


BIT #ST.MSK,HC.MPK+P.STS(R4) 
BNE RSPERR 


CHECK FOR EXPECTED REFERENCE NUMBER 
CMP C.REF (RS) ,HC.MPK+P. CRF (R4) 
BEQ RSPPTW 

RSPERR: ERRDF 33,,ERRO33 


CHECK FOR STATUS CODE ST.SUC (ZERO) 


CHECK IF CORRECT REF NUMBER 


TRAP CSERDF 
WORD 33 
-WORD 0 
WORD ERRO33 


BR RSPDRP :DROP UNIT FROM TESTING — 
;CHECK IF RESPONSE FROM SEND OR RECEIVE DATA COMMAND 


RSPPTW: BIT ACT. -_ C.FLG(RS) CHECK IF RESPONSE FROM DM PROGRAM 
RSPOU: BEQ RSPO LOOK AT REQUEST NUMBER IF SO 





CZUDCBO UDA & DISK 
GLOBAL SUBROUTINES S$ 


1 
2 
3 015244 
4 015250 
5 015254 
6 015260 
7 015262 
8 015270 
9 015274 
10 015300 
11 015302 
015302 
015304 
015306 
015310 
12 015312 
14 015314 
15 015320 
16 015324 
17 015330 
18 015334 
19 015336 
20 015342 
21 015344 
22 015346 
23 015350 
24 015354 
25 
26 
27 


28 

29 015356 
30 015364 
31 015372 
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ECTION 
;MAINTENANCE READ END PACKET RECEIVED, LOOK AT REQUEST FROM DM PROGRAM 
016401 000272 RSPPT2: MOV HC.BF2(R4),R1 :GET REQUEST NUMBER 
042701 007777 BIC #007777,R1 ‘CHECK TYPE 
022701 040000 CMP #DU.SPC,R1 31S SPECIAL TYPE SET? 
001010 BNE 1$ TIF NOT, ERROR 
042764 170000 000272 BIC #°¢007777, HC.BF2(R4) CLEAR TYPE 
016401 000272 MOV HC.BF2(R4), :GET REQUEST NUMBER 
020127 000017 CMP Ri BDSPSI’ [CHECK IF IN EXPECTED RANGE 
103405 BLO RSPPT3 
1$: ERRDF sBO ERRO32 ;BAD REQUEST NUMBER 
104455 TRAP  CSERDF 
000040 .WORD 32 
000000 “WORD 0 
013744 “WORD ERRO32 
000711 BR RSPDRP ;DROP UNIT FROM TESTING 
012700 000004 RSPPT3: MOV #0P.SSD,RO seuite A SEND DATA COMMAND ae 
004737 023150 CALL BLDCMD t FOR ANSWER TO DM PROGRAM 
012700 000164 MOV #HC. ae RO :POINT TO BUFFER IN PACKET 
004737 023332 CALL CLRBUF AND CLEAR BUFFER 
010403 MOV R4,R3 :R3 POINTS TO COMMAND BUFFER 
062704 000106 ADD #HC.BSZ,R4 “R4 POINTS TO MESSAGE BUFFER 
011401 MOV (R4),R1 [GET REQUEST NUMBER 
012423 MOV (R4)+, (R3)+ [PUT REQUEST NUMBER INTO COMMAND PACKET 
060101 ADD R1,R1 [DOUBLE REQUEST NUMBER 
004771 015460 CALL @RSPDSPCR1) SCALL REQUESTED ROUTINE 
001270 BNE RSPD *RO OUTINE RETURNS Z CLEAR TO DROP UNIT FROM TESTING 
; Z SET IF COMMAND READY TO SEND TO UNIT 
:SEND COMMAND BACK TO UDA 
042765 000010 000014 RSPOUT: BIC #CT.MSG,C.FLG(RS) ZCLEAR MESSAGE RECEIVED FLAG 
032765 000020 000014 BIT #CT.REQ,C. "LG(RS) [CHECK WHICH COMMAND TO SEND 
001014 BNE RSPOU2 [BRANCH IF RESPONSE TO REQUEST 
012700 000005 MOV #0P.RSD,RO ;BUILD RECEIVE DATA COMMAND 
004737 023150 CALL BLDCMD 
012700 000272 MOV #HC. oF ee RO sPOINT TO MESSAGE BUFFER 
004737 023332 CALL CLRBUF 3 LEAR IT 
052765 000020 000014 BIS #CT.REQ,C.FLG(RS) TSET REQUEST BIT 
000403 BR RSPOU3 
042765 000020 000014 RSPOU : BIC #CT.REQ,C.FLG(RS) ZCLEAR REQUEST BIT 
004737 023234 CALL SNDCMD :SEND COMMAND TO UDA 
012700 000264 V #3.*60.,R0 :SET TIMEOUT FOR 3 MINUTES 
010501 mov RS. 
062701 000040 ADD #C.TO,R1 :PUT TIME IN CONTROLLER TABLE 
004737 023604 CALL SETTO 


000137 015070 JMP RSPNXT :NGW WAIT FOR END PACKET 


deed 
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y sRESPONSE REQUEST DISPATCH TABLE 
3 015460 015516 RSPDSP: .WORD TIMSIZ 

4 015462 015636 «WORD T2DLL 

5 015464 016002 «WORD T2CMD 

6 015466 016452 ~WORD T4MPRM 

7 015470 016474 -WORD T4UPRM 

8 015472 016754 -WORD 1488 

9 015474 017004 ~WORD T4 

10 015476 017034 ~WORD T4SOFT 

11 015500 017062 -WORD T4SEEK 

12 015502 017102 -WORD T4MXFR 

13 015504 017244 «WORD UTOTST 

14 015506 017350 «WORD ERRMES 

15 015510 017564 «WORD ERRMC 

16 015512 017704 -WORD MESSAG 

4 015514 020016 -WORD DON 
19 000017 DSPSIZ=<.=RSPDSP>/2 


Be Se Se Be Be Se Se Be Be Fe Be Be Be Se Be 


a 


SEQ 0161 


SET UP FREE MEMORY FOR ADDRESS TESTING 
PROVIDE DIAGNOSTIC PROGRAM FOR — DRIVE 
GET MANUAL dL age: + Aaa COMMAND 
TELL DATA PATTERN 16. 
TELL UNIT PARAMETERS, CLEAR CONTENTS 
TELL BAD BLOCKS (FIRST 14) 
TELL BAD BLOCKS (LAST TWO) 
ADD TO SOFT ERROR AND ECC COUNTS 
pre 1000 TO SEEK COUNT 
ADD TO MEGABITS READ a COUNTS 


EPO A 
REPORT ERROR MESSAGE AND COUNT HARD ERROR 
PRINT A DESCRIPTIVE MESSAGE 
MARK DM PROGRAM AS NO LONGER RUNNING 


LEGAL NUMBERS ARE LOWER THAN THIS 
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Nonny ee es 


—SOOONAUSWN—O OONOUEWN— 





sNORMAL MAINTENANCE READ BUFFER DESCRIPTION 
BYTE OFFSET FROM 


3 START  eren 


2 
4 
6 
8 
10 
12 
14 
16 
18 


20 
22 


68 


Reaves waren} 
ATA ARGUMENT #T 
[ATA ARGUMENT #2 
DATA ARGUMENT #3 
tata ARGUMENT 8 
ATA ARGUMENT #5 
[TATA ARGUMENT #6 
ATA ARGUMENT # 
IATA ARGUMENT #8 
ATA ARGUMENT #9 
{To pATA ARGUMENT #10. 
tana ATA ARGUMENT #1! 
Fewer oeereooerescosoosoeesesescs=s + 
| eat MOEN 184 


USED TO SELECT ROUTINE 
R4 CONTAINS THIS ADDRESS 


SEQ 0162 


| H 13 
CZUDCBO UDA & DISK DRV_ DIAG MACRO V04.00 29-APR-82 17:36:04 PAGE 155 
GLOBAL SUBROUTINES SECTION 


ISIS at at at ot ot ot es 2 2 
WN —SVONAUSWN—ODONOUSwr— 


SEQ 0163 


sNORMAL PSEUDO-TERMINAL IN PACKET DESCRIPTION GIVEN IN RESPONSE TO ABOVE PACKET 


BYTE OFFSET FROM 
: START oo 


2 
4 
6 
8 
10 
12 
14 
16 
18 


20 
22 


68 





Pm oem ees cee ene ee eee cond 


"REQUEST NUMBER 


fe oe Oe Oo OO SY Dw OD aot 


DATA ARGUMENT “a 


: DATA ARGUMENT 2 . 
wera DATA ARGUMENT #3! 
cert | DATA ARGUMENT #4 ' 
‘Sepang DATA ARGUMENT #5 ' 
Poke: | DATA ARGUMENT #6 ' 
‘See DATA ARGUMENT #7 ' 
eae DATA ARGUMENT #8 ' 
1 DATA ARGUMENT #9 ' 
DATA ARGUMENT #10! 
faa DATA ARGUMENT TT! 
ooo + 
Sener merlin seer Hh a 


ECHOED FROM REQUEST PACKET 
R3 CONTAINS THIS ADDRESS 


ALL _DATA ARGUMENTS ARE RETURNED 
CONTAINING ZEROS UNLESS 
SPECIFICALLY INDICATED BY 
RESPONSE ROUTINE. 


— | 
# CZUDCBO UDA & DISK DRV DIAG MACRO V04.00 29-APR=82 17:36:04 PAGE 156 SEQ 0164 
eat GLOBAL SUBROUTINES SECTION 


} ;TIMSIZ = DM REQUEST 0 
3 :SET UP MEMORY FOR ADDRESS TESTING FROM UDA. 
4 [PLACE ADDRESS OF EACH LOCATION INTO EACH LOCATION 1 IN FREE 
5 SMEMORY. RETURN FIRST LOCATION OF FREE MEMORY MD.02 (LOW BITS) 
é SAND CMD.03 (HIGH BITS). RETURN LAST LOCATION i FREE MEMORY IN 
? 7CMD.04 AND CMD.05. ALSO RETURN FIRST EXISTANT LOCATION IN CMD.06 
: ; AND CMD.07; LAST EXISTANT LOCATION IN CMD.08 AND CMD.09. 
10 INPUTS: 
11 : RS = CONTROLLER TABLE ADDRESS 
12 ; Rs = MESSAGE PACKET DATA ADDRESS (POINTING TO MSG.02) 
13 - COMMAND PACKET DATA ADDRESS (POINTING TO CMD.02) 
14 ‘ouTPUTS. 
15 ; COMMAND PACKET CONTAINING: 
16 : (R3) LOW ADDRESS BITS OF FIRST WRITABLE ADDRESS 
17 ; 2.(R3) HIGH ADDRESS BITS OF FIRST WRITABLE ADDRESS 
18 : 4.(R3) LOW ADDRESS BITS OF LAST WRI d 
19 : 6.(R3) HIGH ADDRESS BITS OF LAST WRITABLE ADDRESS 
20 : 8.(R3) LOW ADDRESS BITS OF FIRST READABLE ADDRESS 
21 : 10.(R3) HIGH ADDRESS BITS OF FIRST READABLE ADDRESS 
22 ; 12.(R3) LOW ADDRESS BITS OF LAST READABLE ADDRESS 
23 : 14. (R3) HIGH ADDRESS BITS OF LAST READABLE ADDRESS 
ge ; 2 SET 
26 015516 013701 002176 TIMSIZ: MOV FFREE,R1 3GET FIRST ADDRESS OF FREE MEMORY 
37 015522 013702 002200 MOV FSIZE.R2 2GET SIZE 
4 FILL MEMORY WITH ADDRESS PATTERN 
31 015526 010111 MEMFIL: MOV R1,(R1) :WRITE DATA INTO LOCATI 
32 015530 062701 000002 ADD #2.R1 : INCREASE ADDRESS TO NEXT LOCATION 
33 015534 005302 DE :C THE WORDS 
34 015536 001373 BNE MEMF IL FILL "ML WORDS 
36 ZSEND LOCATION OF FREE MEMORY TO UDA 
38 015540 013723 002176 MOV FFREE,(R3)+ ZLOAD FIRST ADDRESS OF FREE MEMORY 
39 015544 005023 CLR (R3)¢ : HIGH ORDER BITS ARE ZERO 
40 015546 013700 002200 MOV FSIZE,RO ‘GET SIZE OF FREE MEMORY 
41 015552 006300 ASL RO [CONVERT TO BYTES 
42 015554 063700 002176 ADD FFREE,RO [COMPUTE LAST LOCATION 
43 015560 162700 000002 SUB #2.R 
44 015564 010023 MOV RO. (R3)+ ZLOAD LAST LOCATION 
45 015566 005023 CLR (R$)+ [CLEAR HIGH ORDER BITS 





— 
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GLOBAL SUBROUTINES SECT 


} SEND LOCATION OF READABLE MEMORY 

3 015570 OO Nes CLR (R3)+ SEND ZERO AS START OF READABLE MEMORY 
4 015572 005023 CLR (R3)+ 

5 015574 013700 002120 MOV LSHIMEM,RO :GET “eos MEMORY ADDRESS 
6 015600 005001 CLR R1 :CLEAR HIGH BITS 

7 015602 006500 ASL RO sSHIFT LEFT 6 PLACES 

8 015604 006300 ASL RO 

9 015606 006300 ASL RO 

10 015610 006300 ASL RO 

11 015612 006300 ASL RO 

12 015614 006101 ROL R1 

13 015616 006300 ASL RO 

14 015620 006101 ROL R1 

15 015622 052700 000076 BIS #76,R0 SET LOW ORDER BITS 

16 015626 010023 MOV RO, (R3)+ zPUT INTO BUFFER 

17 015630 010123 MOV R1,(R3)+ 

18 015632 000264 SEZ 

19 015634 000207 RETURN 


| . kK 13 
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GLOBAL SUBROUTINES SECTION 


MO OONAUESWN | O OONOAOUSWN— 


NORIDIR et tt St ot ot es 


ew 





002414 


SEQ 0166 


sT2DLL = DM REQUEST 1 
; PROVIDE DIAGNOSTIC TO DOWNLINE LOAD INTO DISK DRIVE. 


THE UDA MAY BE USED TO GET THE DIAGNOSTIC IF THE SYSTEM LOAD a tae 
31S ON THE UDA. st ~ at oe ae : g fe Head a OF -* 


NO WAY 
; U U IT WILL ALWAYS ASSUME IT is USED AND 
WILL INITIALIZE AND RELOAD THE DM PROGRAM AFTER READING THE 
sDIAGNOSTIC. THE OUTPUTS OF THIS ROUTINE ARE STORED AND SENT TO THE 
30M PROGRAM IN THE UTOTST REQUEST. 


INPUTS: 
R5 = CONTROLLER ~— ADDRESS 
R4 = iy DATA ADDRESS 
RIVE NUMB & 


: 
:- (Ra) A A_VALUE_THE DM PROGRAM WISHES RETURNED 
4.(R4) REGION TO WHICH A yng hl IS TO BE LOADED IN DISK 
-(R4) 2 WORD PROGRAM NAME IN RADSO 
R3 = COMMAND DATA ADDRESS 
OUTPUTS: 


COMMAND PACKET COULD CONTAIN THE FOLLOWING: 
(R35) ONE IF PROGRAM PROVIDED, TWO IF PROGRAM NOT AVAILABLE 
2. aa DRIVE NUMBER 
4.(R3) COPY OF THE Hog FROM DM ere 
6.(R3) REGION TO WHICH PROGRAM IS TO BE LOADED 
Pies ADDRESS OF FIRST BYTE TO BE DOWNLINE LOADED 
2. 


Caves 
~ 


(R3) HIGH ORDER BITS OF ADDRESS 
(R3) BYTE COUNT OF PROGRAM TO BE DOWNLINE LOADED 


Z SET 
STHIS PROGRAM WILL NOT SEND A ae PACKET IN RESPONSE TO THIS REQUEST. 
THE UDA WILL BE REINITIALIZED AND THE DM PROGRAM RELOADED. THEN THIS DATA 
WILL BE APPENDED TO THE NEXT uTorst REQUEST. 
COPY REQUEST DATA TO STORAGE 


T2DLL: CLR DLL 
MOV (R4)+,DLLDR 


© Be Se Be Se Be Se Be Be Se Be Se Ge Ge Be Be Se Be 


CLEAR CONTROL WORD 
zDRIVE NUMBER 
VALUE FROM DM 
2REGION 

PROGRAM NAME 

MOV (R4)+,DLLNAM#2 : (TWO WORDS) 


an 





SOWDNAVUEWN =O OONOULWwN— 
eeeeeseoeeeesesess 
w vin 
“ 
-—oo 
3 


NA em ea St 


000000 
002176 
002426 
002200 
024626 


002414 
4 


002424 


000001 
014632 


014726 





002424 
002430 


002200 


002176 
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GLOBAL SUBROUTINES SECTION 


sRESET UDA AND READ DM PROGRAM 


CLR a(R5) 

MOV FFREE,DLLADR 
CLR DLLADR+2 
MOV ere DLLSIZ 
CALL_RDDLL 

BCC 


CALL_RUNDM 
BEQ 2$ 
JMP RESPDM 
RETURN 


SEQ 0167 


sRESET THE UDA 

2GET ADDRESS WHERE PROGRAM 
TO BE STORED 

3 SAVE CURRENT SIZE OF ME 


;COMPUTE SIZE OF DLL PROGRAM 
; AND RESTORE ORIGINAL FFREE 
: AND FSIZE VALUES 


POP RETURN ADDRESS OFF STACK 
RUN THE DM PROGRAM AGAIN 


an 
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GLOBAL SUBROUTINES SECTION 


} ;T2CMD = DM REQUEST 2 
; ?GET MANUAL INTERVENTION COMMAND 
5 s INPUTS: 
6 : RS = CONTROLLER TABLE ADDRESS 
7 : R4 = MESSAGE DATA ADDRESS 
a : (R4) DRIVE N BR 
9 : 2. (R4) OPERATION CODE 
10 : Q ON FIRST REQUEST FOR DRIVE. ECHO OF PREVIOUS RESPONSE ALL OTHER TIMES. 
11 : IF OPERATION CODE = 
12 : af: (R4) DATA BYTE READ (TO BE PRINTED) 
13 : = COMMAND DATA ADDRESS 
14 ‘ourpurs. 
15 : COMMAND DATA FILLED WITH THE FOLLOWING: 
16 : (R3) OPERATION CODE 
17 : 0 - EXIT 
18 : 1 = WRITE 
19 : 2 = READ 
20 : 3 = DIAGNOSE 
21 : F OPERATION CODE = 1, 2 OR 3 
22 : 2. {R3) N NUMBER 
23 : (R3) OFreet INTO REGION 
24 : IF OPERATION CODE = 1 
25 : 6.(R3) DATA BYTE 
26 : 2 SET IF DATA RETURNED 
37 : 2 CLEAR IF DRIVE NUMBER NOT ON THIS CONTROLLER 
29 016002 032737 000200 002160 T2CMD: BIT #SM.MAN,SFPTBL+SO.BIT yLOOK AT MANUAL INTERVENTION MODE 
30 016010 001002 BNE T2CMDM ‘EXIT If NOT WANTED 
31 016012 000137 016434 JMP T2CMDX 
32 016016 T2CMDM: MANUAL sMANUAL INTERVENTION ALLOWED? 
016016 104450 TRAP _—‘ C$MANI 
33 016020 BCOMPLETE T2CMDO :PRINT WARNING IF NOT 
016020 103406 BCS T2CMDO 
34 016022 T2CMD9: PNTF T2WARN 
016022 004137 022266 JSR R1,LPNTF 
016026 005346 -WORD T2WARN 
016030 000000 “WORD PNT.CT 
35 016032 000137 016434 JMP T2CMDX 
36 16036 012401 T2CMDO: MOV (R4)+,R1 ZGET DRIVE NUMBER 
37 016040 912402 MOV (R4)+.R2 [GET OPERATION CODE 
38 016042 001022 BNE T2CMD?2 ‘BRANCH IF NOT ZERO 
39 016044 004737 020734 CALL GIDRVT [GET DRIVE TABLE ADDRESS 
40 016050 001401 BEG 1$ SCHECK IF DRIVE F 


OUND 
41 016052 000207 RETURN sRETURN WITH Z CLEAR IF NOT 
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GLOBAL SUBROUTINES SECTION 


1 eat 1$: PNTF T2CMS1,D.UNIT(R4),(R5),(R4) sPRINT DESCRIPTION 


54 011446 MOV (R4), so} a 
016056 011546 MOV (R5),-¢ 
016060 016446 000002 MOV D. iniT (Ra), -(SP) 
16064 004137 022266 JSR RI,L 
016070 005445 - WORD tScms1 
016072 000006 «WORD PNT.CT 
2 016074 005037 002400 CLR T2WRR CLEAR ALL STORAGE WORDS 
3 016100 005037 002402 CLR T2wRO 
4 016104 005037 002404 CLR T2DR 


an 


—_——— +--+ er eee 
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GLOBAL SUBROUTINES SECTION 






| 


1 016110 022702 000002 T2CMD2: CMP #2 -R2 :SEE IF LAST OPERATION WAS READ 
2 016114 001027 BNE T2CMDQ ‘BRANCH IF NOT TO QUESTION 
3 016116 PRINT <#' > ‘PRINT ONF SPACE | 
016116 112700 000040 Move #° ,RO 
016122 004737 022114 CALL CPNT 
4 016126 013701 002400 MOV T2WRR,R1 :PRINT REGION 
5 016132 004737 021654 CALL T2PNTW 
6 016136 013701 002402 MOV T2WRO,R1 :PRINT OFFSET 
7 016142 004737 021654 CALL T2PNTW 
8 016146 PRINT #°/ sPRINT A SLASH 
016146 112700 000057 MOVB #'/,RO 
016152 004737 022114 CALL CPNT 
9 016156 012401 MOV (R4)+,R1 :PRINT THE DATA 
10 016160 004737 021704 CALL T2PNTB 
11 016164 PRINT #CR sEND THE LINE | 
016164 112700 000015 MOVB #CR,RO 
01617u 004737 022114 CALL CPNT 





ao 
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GLOBAL SUBROUTINES SECTION 


SEQ 0171 





an 


} yNOW ASK FOR COMMAND INPUT 

3 016174 T2CMDQ: GMANID TGOPT7, TEMP,A,-1,1,20..NO sASK FOR COMMAND 
016174 104443 TRAP  C$GMA 
016176 000406 BR 10000$ 
016200 002262 WORD MP 
016202 00014 “WORD TS$CODE 
016204 003213 “WORD T4OPT7 
016206 177777 “WORD 1 
016210 000001 “WORD TSLOLIM 
016212 000024 “WORD TS$HILIM 
016214 10000$: 

4 016214 012701 002262 MOV #TEMP,R1 :GET POINTER TO STRING 

5 016220 112100 MOVB (R1)+,RO [GET COMMAND CHARACTER 

6 016222 022700 000105 CMP #°E,RO 

7 016226 001415 BEQ T2CMDV 

8 016230 022700 000104 CMP #°D,RO 

9 016234 001016 BNE T2CMD3 

10 016236 012713 000003 MOV #3, (R3) ySTORE DIAGNOSE OPERATION CODE 

11 016242 004 021766 ALL T2 [GET REGION FROM COMMAND 

12 016246 001402 Q 1$ 

13 016250 010437 002404 ‘MOV R4,T2DR 

14 016254 013763 002404 000002 1S: MOV T2DR,2(R3) 

15 016262 004737 021766 T2CMDV: CALL T2GNUM :MAKE SURE AT END OF LINE 

16 016266 001064 BNE T2CMDE 

17 016270 000461 BR T2CMDX 


| GLOBAL SUBROUTINES SECTION 


MISWN SO OBONAUSWN—OVDONOMUSWwhR— 
essssssssssssssscooosooc“ecooocoo 
WWWWNW 
WSS Noweok 
NOFSNANSG 


NONONOPONOPofy 2 ss ss es 
Ree ee ee ee ee 





000002 
000122 


000127 


000001 
021766 


000002 
000006 
002400 
002402 
000004 
021766 
000002 
000004 
021766 


000004 
021766 


000002 
000004 


022266 


000002 
000004 


002400 
002402 





;COMMAND MUST BE EITHER READ OR WRITE 


T2CMD3: 


T2CMDR: 


T2CMDN: 


T2CMDW: 


MOV #2, (R3) 
C RO 


MOV #1, (R3) 
CALL T2GNUM 
B TeCMDe 


MOV R4,4(R3) 
CALL ryegNua 
BNE T2CMD 


E 
MOV sage T2WRR 
MOV 4(R3),T2WRO 


T2CMDX: SEZ 


T2CMDE : 


RETURN 
PNTF T2CMSS 


BR T2CMDQ 


sCHECK IF READ 


:CHECK IF WRITE 


: IF NOT = ERROR 


GET DATA BYTE 


ZERROR IF NO DATA 


OR GREATER THAN TWO DIGITS 
HY a 3 DATA eee inte 


bare haa? AND 
: VINTO BUFFER 


3 INCREMENT OFFSET 


SAVE REGION 
sSAVE OFFSET 


REPORT ERROR MESSAGE 


:GO ASK AGAIN 


et 
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| GLOBAL SUBROUTINES SECTION 


: ;T4MPRM = DM REQUEST 3 

; ; REQUEST FOR TEST 4 CONTENTS OF DATA PATTERN 16. 

5 INPUTS 

6 : "RS = CONTROLLER TABLE ADDRESS 

7 3 R4 = MESSAGE DATA ADDRESS 

8 : (NO DATA) 

9 R3 = COMMAND DATA ADDRESS 

10 SOUTPUTS: 

11 : COMMAND DATA FILLED WITH THE FOLLOWING: 

12 3 (R3) NUMBER OF WORDS IN DATA PATTERN 16 

1? ; 2. (R3) DATA IN PATTERN 16 

15 : 32. (R3) = 

1g : Z SET 

18 016452 012707 000021 T4MPRM: MOV #17.,R1 3GET COUNT 

19 016456 012702 002312 MOV #PAT16C,R2 : AND ADDRESS OF PATTERN 16 PARAMETERS 
20 016462 012223 1$: MOV (R2)+,(R3)+ COPY THE DATA TO BUFFER 
21 016464 005301 DEC R1 
22 016466 001375 BNE 1$ 
23 016470 000264 SEZ ;RETURN WITH Z SET 

24 016472 000207 RETURN 





an 








14 
CZUDCBO UDA & DISK DRV DIAG MACRO V04.00 29-APR=82 17:36:04 PAGE 166 


GLOBAL SUBROUTINES SECTION 


nore ew Ho OS SS 
WHS COONAUSWN—OVOONOUSWh— 


rmnror 


;TGUPRM = DM REQUEST 4 
TREQUEST FOR TEST 4 UNIT PARAMETERS 
INPUTS: 


Bete Se Se Se Be Be Be Be Be Ge Be Se Fe Ss Ge Ge Be Ge Fe Ge Ge Ge Ge Ge Ge Be Be Ge Be Ge Ge Ge Ge Be Be Se Be Se Be Be Se Se Se Se Se Se Se Se 


OUTPUTS: 


RS = CONTROLLER TABLE ADDRESS 
R4 = MESSAGE DATA ADDRESS 
(R4) DRIVE NUMBER 
2.(R4) DRIVE SERIAL NUMBER 


8. ‘oe HDA SERIAL NUMBER 


14. (R4) 


R3 = COMMAND DATA ADDRESS 


COMMAND DATA FILLED WITH | Be mat 
(R3) PARAMETER BITS (1 FOR TRUE) 


ne 


BIT 14 = INITIA uRit 
BIT 13 = DIAGNOSTIC CYLINDERS 
BIT 12 = ECC CORRECTIO 
BIT 11 = READ ONLY 
BIT 10 = WRITE ONLY 
BIT 9 = RETRIES 
BIT 8 = TRACK/GROUP AND CYLINDERS SPECIFIED 
BIT 7 = (NOT USED) 
BIT 6 = SEQUENTIAL SEEKS 
BIT 5 = BEGIN/END SETS wey IED 
BIT 4 = TRACK SPECIFIED (0 = GROUPS SPECIFIED) 
HAS MEANING ONLY WHEN BIT 5 IS ZERO 
BIT 3 = WRITE CHECKS ENABLED 
BIT 2 = WRITE CHECKS ALWAYS 
BIT 1 = DATA COMPARES ENABLED 
IT 0 = DATA COMPARE ALWAYS 


BIT 
2. et DATA PATTERN NUMBER 
ARAMETER BIT 5 SET 
4.(R3) COUNT OF BEGIN/EN 


SETS 
6. (R3) + tte (2 WORDS) THEN END BLOCK (2 WORDS) 


36. (R3) HU 
IF an BIT 5 


Ome 
rama 


OR 
F COUNT OF BEGIN/END BL aces = 0 


“START CYLINDER (2 WORDS) THEN END CYLINDER (2 WORDS) 


CYLINDER att VALUE IF TO TEST ENTIRE AREA 


wes ge CYLINDER 
(2 WORDS 


INDERS 
3) NUMBER OF TRACKS OR GROUPS SPECIFIED 
NUMBERS 


0 7 TRACK OR GROUP 


1T 
DETERMINED BY PARAMETER BIT 4 


R3 
T IF DATA RETURNED 
EAR IF UNIT NUMBER NOT ON THIS CONTROLLER 


SEQ 0174 


1 
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GLOBAL SUBROUTINES SECTION G 


1 016474 012401 TGUPRM: mov (RA), R1 :GET DRIVE NUMBER 
2 016476 010402 R4,R SSAVE DATA ADDRESS 
3 016500 004737 020734 CALL GTDRVT ‘GET DRIVE TABLE ADDRESS 
4 016504 001122 BNE T4UPRX SCHECK IF DRIVE FOUND 
5 016506 012264 000200 MOV (R2)+,D.SERN(R4) ;COPY DRIVE SERIAL NUMBER TO DRIVE TABLE 
6 016512 012264 000202 MOV (R2)+,D.SERN+2(R4) 
7 016516 012264 000204 MOV (R2)+,D.SERN+4(R4) 
13 016522 016401 000004 MOV D.PRM(R4) RI :GET PARAMETER BITS 
14 016526 042701 140200 BIC #D.ZERO,Ri :CLEAR SOME BITS 
15 016532 032737 000020 002226 BIT #ISTRTH.IFLAGS IF FIRST TIME TEST 4 BEING RUN 
16 016540 001406 BEQ 2$ AFTER A COMMAND 
17 016542 032737 040000 002160 BIT #SM.1W,SFPTBL+SO.BIT GET INITIAL RITE BIT 
18 016550 001402 BEQ 2$ 
19 016552 052701 040000 BIS #D.IW,R1 :MOVE INTO PARAMETER BITS 
20 016556 010123 2s: MOV R1,(R3)+ ‘PUT INTO BUFFER 
21 016560 016423 000006 MOV D.PAT(R4), (R3)+ ;PUT PATTERN NUMBER IN BUFFER 
22 016564 032701 000040 BIT #D.BE,R1 SCHECK BEGIN/END PARAMETER BIT 
23 016570 001411 BEQ 10$ ‘BRANCH IF NOT SET 
35 yRETURN BEGIN/END SETS 
27 016572 012701 000021 MOV #4%4+1,R1 ;COUNT OF SETS TIMES WORDS PER SET PLUS COUNT WORD 
28 016576 010402 MOV R4,R2 [GET INDEX INTO DRIVE TABLE 
29 016600 062702 000112 ADD #D.BEC,R2 
30 016604 012223 1$: MOV (R2)+, (R3)+ ; TRANSFER THE BEGIN/END SETS 
31 016606 005301 DEC R 
32 016610 001375 BNE tt 
33 016612 000457 BR T4UPRX 
016614 032764 000400 000004 10$: BIT #D.CYL.D.PRM(R4) :LOOK AT D.CYL BIT 
016622 001441 BEQ 20$ ‘BRANCH IF NOT SET 
sRETURN TRACKS/GROUPS AND CYLINDERS 


6624 005764 000112 TST D.BEC(R4) CHECK IF ANY TRACKS/GROUPS 
6630 001421 BEQ 25$ BRANCH IF N 
ooee 012701 000004 MOV #4,R1 COUNT OF CYLINDER WORDS 


R4,R 
6640 062702 000154 ADD #D.BCYL,R2 
6644 Oneges 11$: MOV oer (R3)+ : CYLINDERS 


0 
0 
0 
0 
0 
0 
01 

016650 001375 BNE is 
916636 012701 000010 MOV oy: at 
0 

0 

0 

0 

0 


FWN CO ODNAUSWN $9 ODBNAUMUEWI 


w 
oa 
So 
S 
~ 
o 
N 
=z 
So 
<= 
xz 


oR2 
062702 000112 ADD #D.BEC,R2 
oiegee 12$: MOV sae), Shade ; TRACKS/GROUPS 


6 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 


BNE 12$ 
72 000427 BR T4UPRX 
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GLOBAL SUBROUTINES SECTION 

! RETURN CYLINDERS ONLY 

3 016674 052763 000040 177774 25$: BIS #D.BE,-4(R3) SET D.BE FOR DM PROGRAM 
4 016702 005023 CLR (R3)+ SEND ZERO BEGIN/END COUNT 
5 016704 012701 000004 MOV #4,R1 

6 016710 010402 MOV R4,R2 

7 016712 062702 000154 ADD #D.BCYL,R2 

8 016716 012223 268: MOV (R2)+,(R3)+ CYLINDERS 

9 016720 005301 DEC R1 

10 016722 001375 BNE 26$ 

016724 000412 BR T4UPRX 

1? RETURN ENTIRE AREA 

15 016726 052763 000040 177774 20S: BIS #D.BE,-4(R3) SET D.BE FOR DM PROGRAM 
16 016734 005023 CLR (R3)+ :BEGIN/END COUNT OF ZERO 
17 016736 005023 CLR (R3)+ START CYLINDER OF ZERO 
18 016740 005023 CLR (R3)+ 

19 016742 005023 CLR (R3)+ END CYLINDER NEGATIVE 
20 016744 012723 177777 MOV #-1,(R3)+ 
21 016750 000264 SEZ 
22 016752 000207 T4UPRX: RETURN 


ee Fe ee OL RS oe ae A et ee -. 2 14 
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| GLOBAL SUBROUTINES SECTION 





| | ;T48B1 = DM REQUEST 5 
; ;REQUEST FOR FIRST 14 BAD BLOCKS 
| 5 3 INPUTS: 
6 ; R5 = CONTROLLER TABLE ADDRESS 
7 : R4 = MESSAGE DATA ADDRESS 
8 ; (R4) DRIVE NUMBER 
5 ; = COMMAND DATA ADDRESS 
10 ‘ourpurs: 
11 ; COMMAND DATA FILLED WITH BAD BLOCKS 
12 ; (R3) COUNT OF BAD BLOCKS 
13 ; 2. (R3) BAD BLOCK 1 (LOW) 
14 ; 4.(R3) (HIGH) 
i ere 
17 ; 56.(R3) BAD BLOCK 14 (LOW) 
18 : 58. (R3) HIGH) 
19 : Z SET IF DATA RETURNED 
$9 ; Z CLEAR IF DRIVE NUMBER NOT ON THIS CONTROLLER 
22 016754 011401 T48B1: MOV (R4),R1 :GET DRIVE NUMBER 
23 016756 004737 020734 CALL_GTDRVT 3GET DRIVE TABLE ADDRESS 
24 016762 001007 BNE T4BB1E sCHECK IF DRIVE FOUND 
25 016764 062704 000010 ADD #D.BB,R4 INCREASE ADDRESS TO DATA TO COPY 
26 016770 012701 000035 MOV #<14<14,#2>>,R1 :GET COUNT OF WORDS 
27 016774 012423 1$: MOV (R4)+,(R3)+ ;COPY THE WORDS 
28 016776 005301 DEC R1 
7000 001375 


BNE 1$ 
30 017002 000207 T4BB1E: RETURN 





WN $9 OONAUSWWN OO DOONOUSWh— 
2244-4 
“N 
So 
= 
Nm 


Sooooo°cecoo 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 





020734 


000102 
000004 
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GLOBAL SUBROUTINES SECTION 


;T4BB2 = DM REQUEST 6 
SREQUEST LAST TWO BAD BLOCKS 


‘RS = CONTROLLER Hares ADDRESS 
R4 = MESSAGE DATA ADDRESS 
(RQ) D DRIVE NUMBER 

- COMMAND DATA ADDRESS 


D DATA "almes BAD BLOCKS 15 AND 16 


2 SET IF DATA RET 

7 CLEAR IF UNIT NUMBER NOT ON THIS CONTROLLER 

MOV (R4),R1 3GET DRIVE NUMBER 

CALL GTDRVT :GET DRIVE TABLE ADDRESS 

BNE 14882E :CHECK IF DRIVE FOUN 

ADD #D.8815,R4 s INCREASE ADDRESS TO DATA TO COPY 
MOV #4 [GET COUNT OF WORDS 

MOV (Rd) +, (R3)+ :COPY THE WORDS 


BNE 1$ 
T4BB2E: RETURN 


an 
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! T4SOFT = DM REQUEST 7 

? ADD TO SOFT ERROR AND ECC COUNTS 

5 : INPUTS: 

6 3 R5 = CONTROLLER TABLE ADDRESS 

7 3 R4 = MESSAGE DATA ADDRESS 

& : (R4) DRIVE NUMBER 

9 : 2.(R4) VALUE TO ADD TO SOFT ERROR COUNT 

10 : 4.(R4) VALUE TO ADD TO ECC COUNT 

‘° 3 R3 = COMMAND DATA ADDRESS 

16 017034 012401 T4SOFT: MOV (R4)+,R1 GET ORIVE NUMBER 

17 017036 010402 MOV R4,R2 3SAVE DATA ADDRESS 

18 017040 004737 020734 CALL GTDRVT :GET DRIVE TABLE ADDRESS 
19 017044 001005 BNE 1$ CHECK IF DRIVE FOUND 

20 017046 062264 000172 ADD (R2)+,D.SERR(R4) ADD TO SOFT ERROR COUNT 
21 017052 062264 000176 ADD (R2)+,D.ECCC(R4) TADD TO ECC COUNT 
25 017056 000264 SEZ sEXIT 
26 017060 000207 1$: RETURN 


an 







1 017062 
2 

3 

4 

5 

6 

4 

8 

9 

10 

11 
12 017062 
13 017064 
14 017070 
15 017072 
16 017076 
17 017100 


011401 


000207 


020734 
000174 
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T4SEEK: 
; DM REQUEST 8. 


+RECORD 1000 SEEKS COMPLETED ON DRIVE 
; INPUTS: 
RS = CONTROLLER TABLE ADDRESS 
R4 = MESSAGE DATA ADDRESS 
(R4) DRIVE NUMBER 
R3 = COMMAND DATA ADDRESS 


MOV (R4),R1 
CALL GTDRVT 


SEKERE 
Has D.SEEK(R4) 
SEKERE: RETURN 


Se Ge Ge Ge Ge Ge 





; NORMAL RETURN 


SEQ 0180 


; GET DRIVE NUMBER 
; GET DRIVE TABLE ADDRESS 


pape IF DRIVE FOUND 
UNT THE BITS TRANSFERRED 


an 





Nm 
VIEW =| 96 OOBNAUS WHO OONOU SW 


NMONINININIR tS ot 


i=] 
oI Se 





010402 
011401 
004737 
100003 
rit 

000444 


066264 
64 


103427 
104421 


042765 
011446 


004137 
003771 
000000 
000264 
000207 


020734 
000002 


100000 


000002 
000004 
002156 


000166 


000040 


100000 
000010 


000002 
022306 


025356 
022306 


T4MXFR: MOV R 
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3 TG4MXFR = DM REQUEST 9. 


RECORD 1M BITS TRANSFERRED ON UNIT. COMPARE TO TRANSFER LIMIT AND 
sREPORT LIMIT REACHED. 


sexy" 


CONTROLLER TABLE ADDRESS 
MESSAGE DATA ADDRESS 
VE NUMBER 


I 
-(R4) VALUE TO ADD TO READ COUNT 
-(R4) VALUE TO ADD TO WRITE COUNT 
= COMMAND DATA ADDRESS 


ZOUTPUTS: 
(R3) BIT 15 SET IF TRANSFER LIMIT REACHED 
MESSAGE PRINTED IF TRANSFER LIMIT REACHED 
Z CLEAR IF DRIVE NUMBER NOT ON THIS CONTROLLER 


3GET MESSAGE DATA ADDRESS 
MOV Ripe R1 [GET DRIVE NUMBER 
CALL GTDRVT :GET DRIVE TABLE ADDRESS 
BNE MXFERE [CHECK IF DRIVE FOUND 
TST D.UNIT(R4) [SEE IF UNIT HAS BEEN DROPPED 
BPL 1$ [CONTINUE IF STILL TO BE TESTED 
ASSUME DT.AVL EQ BIT15 
BIS #B1T15, (R3) ZTELL DM PROGRAM TO STOP TESTING THIS UNIT 
BR MXFERX ; AND EXIT WITHOUT ADDING TO ADDING TO COUNTS 
1$: 
ADD 2(R2),D.XFRR(R4) ZADD MEGABITS READ 
ADD 4(R2).D.XFRW(R4) ZADD MEGABITS WRITTEN 
TST srPTeL+ $0.XL ZSEE IF LIMIT SPECIFIED 
BEQ MXFERX [BRANCH IF NOT 
CMP D.XFRR(R4), SFPTBL+SO.XL [CHECK IF LIMIT REACHED 
BLO MXFERX “BRANCH IF LIMIT NOT REACHED 
RFLAGS RO *CHECK FLAGS 
TRAP _ C$RFLA 
BIT #IDU,RO ;SEE IF DROPPING UNITS IS INHIBITED 
BNE MXFERX 
BIS #B1T15, (R3) :SET DROP UNIT BIT 
BIC #CT. MSG. C.FLG(RS) [CLEAR MESSAGE RECEIVED FLAG 
PNTX MESSG,D.UNIT(R4),(R5),(R4) :PRINT TESTING DONE 


MOV (R4),-(SP) 
MOV (R5),-(SP) 


MOV D. UNIT CRA) , -(SP) 


JSR Ri,L 
«WORD hESC. 
-WORD PNT.CT 
CALL RNTIME PRINT RUNTIME 
PNTX MXFERP 
JSR_R1,LPNTX 
«WORD MXFERP 
-WORD PNT.CT 


MXFERX: SEZ NORMAL RETURN 
MXFERE: RETURN 
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GLOBAL SUBROUTINES SECTION 
sUTOTST - DM REQUEST 10 


TELL _DM PROGRAM WHICH DRIVES ARE SELECTED FOR TESTING 
3 AND CLEAR STATISTICS IN DRIVE TABLE 


1 

2 

3 

4 

5 

6 INPUTS: 

? ; RS = CONTROLLER TABLE ADDRESS 

8 ; R4 = MESSAGE DATA ADDRESS 

9 ; (NO DATA) 
10 ; R3 = COMMAND DATA ADDRESS 

11 ; OUTPUTS: 
12 ; COMMAND PACKET CONTAINING UP TO 8 DRIVE NUMBERS. 

13 ; LIST IS ENDED BY A WORD WITH BIT 15 SET. 

14 ; FOLLOWING LIST IS THE INFORMATION FROM T2DLL REQUEST IF APPLICABLE. 
15 ; D-XERW, D.XFRR, D.HERR, D.SERR, D.SEEK AND D.ECC CLEARED IN DRIVE TABLE 
17 . 

18 017244 010504 UTOTST: MOV RS.R GET ADDRESS OF CONTROLLER TABLE 
19 017246 062704 000020 ADD AC. DRO, R4 :BUMP TO DRIVE TABLE POINTERS 

20 017252 012702 000010 MOV #8. ,R GET COUNT OF PORTS 
21 017256 012400 UTOT1: MOV (R4)+,RO SEE IF DRIVE TABLE POINTER EXISTS 
22 017260 001415 BEQ U BRANCH IF NOT 

23 017262 005760 000002 TST D.UNIT(RO) ;LOOK IF UNIT AVAILABLE FOR TESTING 
24 017266 100410 BMI UTOTIA 
25 017270 ASSUME DT.AVL EQ BIT15 
26 017270 011023 MOV (RO). (R3)s ;LOAD DRIVE NUMBER FROM TABLE 

27 017272 062700 000164 ADD #D.XFRW.RO sCLEAR STATISTICS IN DRIVE TABLE 
28 017276 012701 000011 MOV #D.SIZE=D. XFRW/2,R1 

29 017302 005020 1$: CLR (RO)+ 

30 017304 005301 DEC RI 

31 017306 001375 BNE 1$ 

32 017310 005302 UTOTIA: DEC R2 ;COUNT THE DRIVE TABLES 

33 017312 001361 BNE UTOT? REPEAT FOR EACH TABLE 

34 017314 012723 100000 UTOT2: MOV #BIT15,(R3)+ TERMINATE LIST 

35 017320 013723 002414 MOV DLL, (R3)+ ; IGET DLL CONTROL WORD 

36 017324 001407 BEQ UTOT4 >; IF _NON-ZER 

37 017326 012701 002416 MOV #DLLDR,R1 ; TRANSFER ALL DLL WORDS INTO BUFFER 
38 017332 012702 000020 MOV #<DLLNAM+4=DLLDR>,R2 

39 017336 012123 UTOT3: MOV (R1)+,(R3)+ 
40 017340 005302 DEC R 
41 017342 001375 BNE UTOT3 
42 017344 000264 UTOT4: SEZ 
43 017346 000207 RETURN ;RETURN WITH Z SET 


F 


Gl 


MEW SO OBNAUSWN OO OONOUSWwh— 


BNuAMOO 


SHVISESALRASSULSUSY WIKRNONVIsaaacanss 


000002 


090040 
000002 
140000 
000400 
000010 
000004 
001000 
022372 
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002160 


000014 
002230 


002160 





SEQ 0183 > 


ZERRMES = DM REQUEST 11 
:PRINT AN ERROR MESSAGE 
+ INPUTS 


3 RS - CONTROLLER TABLE ADDRESS 
: R4 = MESSAGE oly ADDRESS 
: (R4) ERROR PC IN DM PROGRAM 
3 2. (R4) oreo 14> ERROR TYPE 
: <13:0 > ERROR NUMBER 
: 4.(R4) DRIVE NUMBER (~1 IF NOT GIVEN) 
§ 6.(R4) MESSAGE POINTER 
; sb" ints OPTIONAL PARAMETERS FOR ERROR PRINT ROUTINE 
3 58. (R4) - 
$ R3 = COMMAND DATA ADDRESS 
OUTPUTS: 
; COMMAND PACKET CONTAINING THE FOLLOWING: 
: (R3) = BIT 15 SET IF FATAL ERROR TO INDICATE DRIVE SHOULD NO LONGER BE TESTED 
; Z SET TO INDICATE DATA RETURNED 
3 Z CLEAR IF DRIVE NUMBER NOT ON THIS CONTROLLER 
ERRMES: 
TST 2(R4) 7 CHECK ae FATAL ERROR 
BMI 5$ ‘BRANCH F NOT 
RFLAGS RO ;LOOK Ar FLAGS 
CSRFLA 
BIT #1DU,RO sare os TO DROP UNITS 
BIS #B1T15,(R3) :SET DROP DRIVE BIT 
5$: py BinS? Ae SEE IF SOFT ERROR 
BIT #140000,R0 
BNE ;BRANCH IF NOT 
BIT #SM.SSF ,SO.BIT+SFPTBL SEE if SOFT es SUPPRESSED 
6s BNE ERRMSX [DON'T PRINT IF S$ 
BIC #CT.MSG,C.FLG(RS) sCLEAR MESSAGE RECEIVED FLAG 
oe . TNUM z1F TEST # 4, 
eit oon SM. ob 06. SFPTBL+SO.BIT ; SEE IF LOG BEING USED 
7$: CALL CENTER s1F NOT, PRINT THE ERROR MESSAGE 
BCC ERRMSX 


i1F DRIVE HASN*T BEEN DROPPED, PRINT 
CLZ ELSE RETURN 
RETURN 





on 





017456 


ooo0o0oo 
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0 
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0 
0 
0 
0 
0 
0 
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0 
0 





SSSssc 
——KnAO— 
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NS NN 
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on 
wa 
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000264 
000207 


002406 
002176 
0 


002410 


000042 


002410 


ERRMSL: 


1$: 


2$: 


3$: 
ERRMSX: SEZ 


TST 
BNE 


LBUFS 
1$ 
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R1 
PHC, B87, LBUFN 


MP LBUFN,LBUFE 
ee 


BHIS 
MOV R5,( 
MOV Rec, naS2-2>/2, RO 


MOV 
DEC 


(R4)+,(R1)+ 
RO 


BNE 2 


MOV 


BR ERRMSX 


R1,LBUFN 


RETURN 





:SEE LOG BUFFER ESTABLISHED 
UFS Seopa iy be if ESTABLISHED 


: E TO 
;COMPUTE END OF STORAGE MAREA 


474 ADDRESS OF DATA STORAGE AREA 
ADD BYTES OF STORAGE NEEDED 
SEE i ENOUGH ROOM 


CH IF NOT 
i STORE ont aide TABLE ADDRESS 


;GET REST OF DATA IN WORDS 
STORE DATA 


RESTORE OLD VALUE OF LBUFN 


SEQ 0184 








CZUDCBO UDA & 
GLOBAL SUBROUT 


RQ et 
WN 9S OBNOUSWN—OOONOUEWN— 


AWG 


2 017574 


Ww 
So 
= 
Nu“ 
S 
o 


SSW 
SSSRIOUR 
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~~ 
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46 017652 





010446 
004737 


017350 


000004 
000002 
020734 


037777 
100000 


000170 
000170 


000040 


002154 


0.15 
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2 ERRMC = DM REQUEST 12. 
TREPORT AN ERROR a ook IDENTICAL TO DM REQUEST ERRMES 


; THEN 


ADD ONE TO T 


HE ERROR COUNT FOR THE DRIVE AND SEE IF 


;ERROR LIMIT REACHED. 


ERRMC: 


$ INPUTS: 


R 
me 


R5 = CONTROLLER gre ADDRESS 
R4 = 3 ae DATA ADDRESS 


2. (R4) 


4.(R4) 
6. (R4) 


8. (R4) 
10. (R4) 


58. (R4) 


ERROR pC IN * PROGRAM 

< 9:8 > Foren TYPE 

< 7:0 > ERROR NUMBER 

DRIVE NABER (-1 IF NOT GIVEN) 
<15:12> TYPE 

<11:0 > > RESEAGE POINTER 

OPTIONAL PARAMETERS FOR ERROR PRINT ROUTINE 


3° = COMMAND DATA ADDRESS 


OMMAND PACKET CONTAINING THE FOLLOWING: 
(R3) BIT 15 SET IF ER 


ROR COUNT REACHE 


HED 
TO INDICATE DRIVE SHOULD NO LONGER BE TESTED. 


Z CLEAR IF DRIVE NUMBER NOT ON 


THIS CONTROLLER 


Z SET TO INDICATE DATA RETURNED 


PUSH R4 
MOV R4,-(SP) 

CALL ERRMES : CALL REQUEST ERRMES 

POP R4 
MOV (SP)+,R4 

TST (R3) 7SEE IF UNIT ALREADY TO BE DROPPED 

3$ : IF SO, JUST EXIT NOW 
4(R4),R1 : GET DRIVE NUMBER 

MOV 2(R4),R2 [GET ERROR TYPE 

CALL  GTDRV : GET DRIVE TABLE 

BNE 5$ : EXIT IF NO TABLE FOR UNIT 

BIC #*C140000,R2 

CMP #100000,R2 :CHECK IF HARD ERROR 

BNE 3 ;BRANCH HIF NOT 

INC D.HERR(R4 : COUNT THE af 

CMP D. NEARING). SFPTBL+SO. EL : CHECK IF AT LIMIT 

BLO 3g : IF LIMIT REATHIED. BRANCH 

RFLAGS RO [LOOK AT THE FLAGS 


BIT #IDU,RO 
BNE 33 


CSRFLA 
SEE IF DROPPING UNITS INNIBITED 
BRANCH IF SO 


SEQ 0185 











8 o17636 
4 


016446 000002 

0041 FH 022306 
0 

052713 100000 
64 

000207 


000244 
000207 





3$: 


5$: 
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PNTX ERRLIM,D.UNIT(R4) 


BIS #B1T15,(R3) 
RETURN 


CLZ 
RETURN 


SEQ 0186 


: PRINT LIMIT REACHED 


MOV D.UNIT(R4),=(SP) 
JSR_R1,LPNTX 
«WORD ERRLIM 
«WORD PNT.CT 


SET STOP TESTING BIT 


SET Z FOR NORMAL RETURN 


; RETURN TO CALLING PROGRAM 


3 FLAG AS_ERROR 
; RETURN TO CALLING PROGRAM 


ZUDCBO UDA & DISK 
GLOBAL SUBROUTINES 


MEWN=|= OCVOONOUSWN—OOONOUSWwrR— 


Pononmonoen hyo 
Soooooo°o0oo 
— por 

~N 


020012 
39 020014 


042765 
012401 


010446 
004737 


012402 


| C DIA . 
N 
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000010 000014 


020734 
000002 


000002 
022306 


025356 


002214 
162220 


020022 








sMESSAG - DM REQUEST 13. 
;PRINT A He WITH HEADER AS FOLLOWS: 


SEQ 9187 


"UN A AT XXXXXX DRIVE XXX RUNTIME HH:MM:SS °° 
TENTIRE MESSAGE IS PRINTED WITH PRINTX CALLS. 


EINPUTS: 
tly hye! cane 


NUMBER 
) MESSAGE 8 peld 
ha tion. 


RAREBO 


58. (Rs) COMMAND DATA ADDRESS 


MESSAG: BIC ACT. oe C.FLGC(RS) 


OINTER 
PTIONAL MESSAGE PARAMETERS 


CLEAR MESSAGE RECEIVED FLAG 
DRIVE NUMBER 


MOV (R4)+ :GET 
PUSH R4 2SAVE DATA POINTER 
MOV R4,-(SP) 
CALL _GTDRVT sGET DRIVE TABLE ADDRESS 
BNE 1$ 4 a IF DRIVE FOUND 
TST C.UNIT(R4) F UNIT DROPPED FROM TESTING 
ON’T PRINT ANYTHING 


BM 
PNTX doses, banttont>, sts 00> | 


CALL _RNTIME 
POP R4 


MOV (R4)+,R2 
ASL R2 
ADD DMPROG,R2 


ADD @DMPROG,R2 

TSTB (R2) 

INC R2 ; 
2s: CALL OSTRNG 

SEZ 

RETURN 
1$: POP R4 


RETURN 





:GET RUNTIME PARAMETERS ~ 


D 

SPRINT HEADER 
MOV (R4),=(SP) 
MOV (R5),-(SP) 
MOV D. UNIT (RA), ~(SP) 
JSR R1LL 
«WORD mESSG. 

WORD PNT.CT 


MOV (SP)+,R4 
GET MESSAGE POINTER 
;DOUBLE TO MAKE BYTE OFFSET 
:ADD TO START OF a. STRINGS 

D SIZE - MAIN PROGRAM 
CHECK A aaa BYTE 


INCREMENT TO NEXT BYTE 


OUTPUT ACCORDING TO STRING 


MOV (SP)+,R4 





CZUDCBO UDA & DISK 
GLOBAL SUBROUTINES 


020016 000244 
020020 000207 





;DONE = DM REQUEST 14 
;MARK DM PROGRAM AS NO LONGER RUNNING 
: INPUTS: 

RS = CONTROLLER TABLE ADDRESS 

R4 = MESSAGE DATA ADDRESS 

(NO DATA) 
R3 = COMMAND DATA ADDRESS 

ZOUTPUTS: 

7 CLEAR TO DROP UNIT FROM TESTING 


DONE: CLZ 
RETURN 


sDROP UNIT FROM TESTING 


SEQ 0188 
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} OSTRNG 
3 sOUTPUT A MESSAGE ACCORDING TO A FORMAT STRING 
¢ sFORMAT OF THE ASCIZ STRING IS AS FOLLOWS: 
§ : CHARACTERS ENCLOSED IN QUOTES ARE TO BE PRINTED AS THEY ARE. 
. ZOTERUISE CODE IS A SINGLE LETTER FOLLOWED BY AN OPTIONAL DECIMAL 
10 ; ON- tig OCTAL NUMBER. N air bf teh et oF BINARY ola PASSED 
11 3 IN PARAMETER IN BITS. MAY BE ANGE 1 TO 32. >16, TWO PARAMETER 
12 $ tORDS ARE USED, OTHERWISE OnLY None WORD. PEADING. 7EROS ARE PRINTED. 
13 3 N IS ALWAYS SP ECIF IED. 
14 ; ON = PRINT UNSIGNED sey IMAL NUMBER FROM N BIT go ri pd ZEROS 
15 ; ARE NOT ay dA A 16 BIT NUMBER EQUAL TO ZERO WIL 
16 3; HN = PRINT HEX NUMBER FROM PARAMETER OF N BITS. IF ND> 16° Two. PARAMETERS 
17 é ARE ae OTHERWISE ONLY — PARAMETER. LEADING ZEROS ARE PRINTED. 
18 : SN - PRINT N SPACES. N ASSUMED TO BE 
19 3; NN = START NEW LINE (C&-LF SEQUENCE) . N ASSUMED TO BE 1. 
20 ; AN =~ PRINT N ASCII CHARACTERS FROM PARAMETERS, N ASSUMED TO BE 1. 
21 3 N/2 PARAMETER WORDS USED. 
3 ; RN = EXECUTE ROUTINE #N. N MUST BE GIVEN AND DEFINED IN HOST PROGRAM. 
24 NULL CHARACTER MEANS END OF MESSAGE. A NULL AS FIRST CHARACTER IN STRING 
$ Must BE IGNORED. 
er 3 INPUT S: 
28 : R2 = ADDRESS OF START OF FORMAT STRING 
29 R4 = ADDRESS OF PARAMETERS 
30 SOUTPUTS: 
3 3 R2 AND R4 UPDATED TO END OF STRING AND PARAMETERS 
33 020022 112201 OSTRNG: MOVB (R2)+,R1 3GET CONTROL CHARACTER 
34 020024 001421 BEQ OSTRE sEXIT IF NULL CHARACTER 
35 020026 012700 020374 MOV #ERRC,RO 3GET POINTER TO CHARACTER TABLE 
36 020032 120110 NCONS: CMPB R1,(RO) + COMPARE CHARACTER WITH TABLE ENTRY 
37 020034 001407 BEQ NCONF ;BRANCH IF MATCH FOUND 
38 020036 105720 TSTB (RO)+ s INCREMENT POINTE 
39 020040 001374 BNE NCONS [CONTINUE SEARCH IF NOT END OF TABLE 
40 020042 PNTF ERRME1 [REPORT BAD CONTROL CHARACTER 
020042 004137 022266 JSR R1,LPNTF 
020046 003702 -WORD ERRME1 
020050 000000 eWORD PNT.CT 
41 020052 000406 BR OSTRE 
42 020054 162700 020334 NCONF: SUB #ERRC,RO 3GET ier INTO TABLE 
43 020060 006300 ; ASL RO ;DOUBLE TO WORD COUNT 
44 020062 004770 0°0346 CALL @ERRD(RO) eT glk TO PRINT ROUTINE 
45 020066 000755 BR OSTRNG GET NEXT 
46 020070 000207 OSTRE: RE/URN 
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! ;CONTROL CHARACTER WAS A QUOTE. PRINT ALL CHARACTERS TO THE NEXT QUOTE. 
3 020072 112200 CON.QU: MOVB Chere GET CHARACTER 
4 020074 120027 000042 CMPB R :CHECK IF ENDING QUOTE 
5 020100 001403 BEQ con ox IF SO, GO GET NEXT CONTROL CHARACTER 
6 020102 PRINT RO [PRINT THE CHARACTER 
020102 004737 022114 CALL CPNT 
7 020106 000771 BR CON.QU sCONTINUE PRINTING 
8 020110 00020 CON.QX: RETURN 
° CONTROL CHARACTER WAS AN A. PRINT ASCII CHARACTERS FROM PARAMETERS. 
12 020112 004737 021024 CON.A: CALL GETCNT GET COUNT OF CHARACTERS 
13 020116 CON.A1: PRINT (R4)+ PRINT THE CHARACTER 
020116 112400 MOVB (R4)+,R0 
020120 737 022114 CALL CPNT 
14 020124 005301 DEC R1 ;COUNT THE CHARACTERS 
15 020126 001373 BNE CON.A1 SPRINT UNTIL COUNT REACHES ZERO 
16 020130 032704 000001 BIT #1,R4 + CHECK IF R4& NOW ODD 
17 020134 001401 BEQ CON.A2 
18 020136 005204 INC RG IF SO, INCREMENT TO NEXT EVEN ADDRESS 
iM 020140 000207 CON.A2: RETURN NOW GET NEXT CONTROL CHARACTER 
$3 CONTROL CHARACTER WAS A D. PRINT DECIMAL NUMBER. 
23 020142 012701 000012 CON.D: MOV #10.,R1 sLOAD PADIX 
24 020146 004737 021102 CALL PNTNUM NT NUMBER 
$3 020152 000207 RETURN NOU GET NEXT CONTROL CHARACTER 
$s ;CONTROL CHARACTER WAS AN H. PRINT HEX NUMBER, 
29 020154 012701 000020 CON.H: MOV #16.,R1 LOAD RADIX 
004737 021102 *PRINT 


30 020160 
31 020164 





000207 





CALL _PNTNUM 
RETURN 


NUMBER 
sNOW GET NEXT CONTROL CHARACTER 


SEQ 0190 


Te 





———____-—_____-——- 
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} :CONTROL CHARACTER WAS AN 0. PRINT OCTAL NUMBER. 
3 020166 012701 000010 CON.O: MOV #8.,R1 sLOAD RADIX 
4 020172 004737 021102 CALL_PNTNUM ;PRINT NUMBER 
2 020176 000207 RETURN NOW GET NEXT CONTROL CHARACTER 
i sCONTROL CHARACTER WAS AN N. PRINT NEW LINE SEQUENCE. 
9 020200 004737 021024 CON.N: CALL GETCNT 3GET COUNT 
10 020204 CON.N1: PRINT #CR sPRINT NEW LINE SEQUENCE 
020204 112700 000015 MOVB #CR,RO 
020210 004737 022114 a | CPNT 
11 020214 005301 DEC R1 COUNT THE SEQUENCES 
12 020216 001372 BNE CON.N1 ; 
5 020220 000207 RETURN sNOW GET NEXT CONTROL CHARACTER 
12 sCONTROL CHARACTER WAS AN R. CALL A PRE-PROGRAMMED ROUTINE. 
17 020222 004737 021024 CON.R: CALL GETCNT GET ROUTINE NUMBER 
18 020226 020127 000011 CMP R1,#ERRRSZ ;CHECK IF DEFINED ROUTINE NUMBER 
19 020232 101004 BHI CON.R1 
20 020234 060101 ADD R1,R1 sDOUBLE COUNT TO GET WORD INDEX 
21 020236 004771 020300 CALL @ERRRTB=2(R1) CALL ROUTINE 
22 020242 000207 RETURN NOW GET NEXT CONTROL CHARACTER 
23 020244 CON.R1: PNTF ERRME1 REPORT BAD MESSAGE STRING 
020244 004137 022266 JSR _R1,LPNTF 
020250 003702 «WORD ERRME1 
020252 000000 «WORD PNT.CT 
24 020254 POP R1 sFIX THE STACK 
020254 012601 MOV (SP)+,R1 
2 020256 000207 RETURN 
44 CONTROL CHARACTER WAS AN S. PRINT SPACES. 
29 020260 004737 021024 CON.S: CALL GETCNT GET COUNT 
30 020264 CON.S1: PRINT <#* > PRINT A SPACE 
0264 112700 000040 MOVB #° ,RO 
020270 004737 022114 CALL CPNT 
31 020274 005301 DEC R1 COUNT THE SPACES 
32 020276 001372 BNE CON.S1 


33 020300 000207 RETURN NOW GET NEXT CONTROL CHARACTER 
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mM 
o 
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™m 


020366 


oO 
~w 
o 
Ww 
fo) 
S 
oO 
™m 
o 
- 
_ 
= 


10 020320 020712 
11 020322 020730 
; 000011 
14 020324 

16 020324 006257 
17 020326 006303 
18 020330 006323 
$ 020332 006343 
ra 
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GLOBAL SUBROUTINES SECTION 


sERROR ROUTINE DISPATCH TABLE 
ERRRTB: .WORD CALR1 


~WORD CALR9 
ERRRSZ=<.-ERRRTB>/2 


TNAMES: 


«MACRO BUILD 
ENTRY 


«WORD BASN1 
OR 


-WORD BASNG 
:BUILD * TABLES 


SEQ 0192 


Ay ALTERNATE PRINT STRING IN DM MEMORY IMAGE 
PRINT AN SDI DIAGNOSE RESPONSE 

SDECIDE WHETHER TO PRINT RBN 

sPRINT BASIC LINE WITHOUT UDA ADDRESS 

PRINT BASIC LINE WITH UDA ADDRESS 

sCALL ALTERNATE PRINT STRING IN PDP=11 MEMORY 

SPRINT ‘REPLACE UDA MODULE M7161' 

PRINT "* UDASA CONTAINS XXXXXX"" 

REPRINT LAST NUMBER 


FIRST CONTAINING CONTROL CHARACTERS 
SECOND CONTAINING ROUTINE ADDRESSES 


TRY **,CON.QU 
ENTRY A,CON.A 
ENTRY D,CON.D 
ENTRY H,CON.H 
ENTRY 0,CON.O 
ENTRY N,CON.N 
ENTRY R,CON.R 
ENTRY S,CON.S 
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GLOBAL SUBROUTINES SECTION 


} sHERE IS FIRST TABLE 
; MACRO ENTRY ARGI .ARG2 
5 -BYTE_*" ARG! 
6 ~NLIST 
f .ENDM 
9 020334 ERRC: BUILD 
020334 042 .BYTE ' 
020335 = 101 -BYTE ‘A 
020336 104 -BYTE 'D 
020337 =: 110 “BYTE ' 
20340 = 117 “BYTE 'O 
020341 116 BYTE ' 
20342 = 122 -BYTE 'R 
020343 = 123 -BYTE 'S 
10 020344 000 -BYTE 0 sFOLLOW WITH A NULL BYTE 
i ~EVEN 
13 ;HERE IS SECOND TABLE 
15 «MACRO ENTRY ARG1,ARG2 
16 -LIST 
17 -WORD _ARG2 
18 -NLIST 
19 .ENDM 
21 020346 ERRD: BUILD 
020346 020072 -WORD CON. GU 
020350 020112 -WORD CON.A 
020352 020142 ~ WORD 
020354 020154 -WORD CON.H 
020356 020166 WORD CON.O 
020360 020200 -WORD CON.N 


020260 





SEQ 0193 
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CZUDCBO UDA & DISK DRV 
SECTION 


GLOBAL SUBROUTINES SECT 


1 3PRE=PROGRAMMED ROUTINE 1 
¢ CALL ALTERNATE PRINT STRING IN DM PROGRAM IMAGE 
4 020366 CALR1: PUSH R2 SAVE CURRENT STRING POINTER 
020366 010246 MOV R2,=(SP) 
5 020370 012402 MOV (R4)+,R2 2GET 1" Lge ee POINTER 
6 020372 006302 ASL R2 sDOUBLE FOR WORD COUNT 
? 020374 063702 002214 ADD DMPROG,R2 ZADD START OF flan STORAGE 
8 020400 067702 161610 ADD @DMPROG,R2 ADD SIZE OF MAIN PROGRAM 
9 020404 004737 020022 CALL_OSTRNG ZOUTPUT USING THIS. STRING 
10 020410 POP R2 GET OLD POINTER BACK 
20410 012602 MOV (SP)+,R2 
11 020412 000207 RETURN NOW CONTINUE THE OLD STRING 





a nn a ce a 
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GLOBAL SUBROUTINES SECTION 


1 sPRE=PROGRAMMED ROUTINE 2 
¢ sPRINT AN SDI DIAGNOSE RESPONSE 
4 020414 CALR2: PUSH R2 
020414 010246 
5 020416 012402 MOV (R4)+,R2 
6 020420 PUSH R2 
020420 010246 
7 020422 042702 177400 BIC #177400,R2 
8 020426 001414 BEQ 2$ 
9 020430 012700 000020 1$: MOV #16.,R0 
10 020434 012701 000040 MOV #32. .R1 
11 020440 021110 CALL_PNTNUS 
12 020444 PRINT #CR 


020444 112700 000015 
oSocee 004737 022114 


13 020454 005302 DEC R2 

14 020456 001364 BNE 1$ 

15 020460 2$: POP R1 
020460 012601 

16 020462 000301 SWAB R1 

17 020464 042701 177400 BIC #177400,R1 

18 020470 001406 BEQ 3$ 

19 020472 004737 020116 CALL _CON.A1 

20 020476 PRINT #CR 
020476 112700 000015 
020502 004737 022114 

21 020506 3$: POP R2 

012602 
22 020510 000207 RETURN 


sSAVE CURRENT STRING soar 


V R2,=(SP) 
GET COUNTS 
sSAVE COUNTS 


MOV R2,=(SP) 
GET BINARY COUNT 
BYPASS BINARY IF COUNT IS ZERO 


:GO TO NEW LINE 
MOVB #CR,RO 
CALL CPNT 


2GET ASCII COUNT 
GET ASCII COUNT 
BYPASS IS COUNT IS ZERO 


PRINT THE ASCII 
:GO TO NEW LINE 


MOV (SP)+,R1 


MOVB #CR,RO 

CALL CPNT 
RESTORE STRING POINTER 

MOV (SP)+,R2 


SEQ 0195 


PR paw eee, SORRY": : 
C 
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GLOBAL SUBROUTINES SECTION 


1 ;PRE=PROGRAMMED ROUTINE 3 

¢ :DECIDE WHETHER TO PRINT RBN 

4 FOUR PARAMETERS ARE PROVIDED FOR_THIS + rit THE FIRST PARAMETER 

5 3 SHOULD BE CHECKED TO SEE IF BIT 7 IS SET: 

6 : IF SET = TURN INTO A CALL TO ROUTINE 1 (WHICH WILL USE OTHER 3 PARAMETERS) 
‘ ; CLEAR - SKIP OVER NEXT 3 PARAMETERS AND END ROUTINE 

9 020512 032724 000200 CALR3: BIT #BIT7,(R4)+ ;CHECK BIT 7 IN FIRST PARAMETER WORD 
10 020516 00132 BNE CALR1 :IF SET, TURN INTO A CALR 
11 020520 062704 000006 ADD #6,R4 ELSE, SKIP OVER NEXT 7 PARAMETERS 

12 020524 000207 RETURN 
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GLOBAL SUBROUTINES SECTION 


1 ;PRE=PROGRAMMED ROUTINE 4 

2 sPRINT BASIC LINE FOR HOST PROGRAM ERROR WITHOUT UDA ADDRESS 

t 3THEN SWITCH 10 EXTENDED FORMAT 

5 020526 CALR4: PNTB BASLN,A#BASNO,#BAS ,#BAS ,4BAS 
020526 012746 006436 MOV #BAS,-(SP) 
020532 012746 006436 MOV #BAS,-(SP) 
020536 012746 006436 MOV #BAS,-(SP) 
020542 012746 006240 MOV SNO,=(SP) 
020546 004137 022276 JSR_R1,LPNTB 
020552 006437 «WORD BASLN 
020554 000010 «WORD PNT.CT 

6 020556 004737 025356 CALL_RNTIME 

7 020562 PRINT #CR 
020562 112700 000015 MOVB #CR,RO 
020566 004737 022114 CALL CPNT 

8 020572 012737 022214 002172 MOV #PX,PTYPE 

9 020600 000207 RETURN 




















CZUDCBO UDA & DISK DRV 
GLOBAL SUBROUTINES SEC 


VMirSwn— 
oO 


2746 006436 
Lb 0064 36 


2746 006402 

2746 006240 

020624 edt 022276 
020632 

6 020634 004737 025356 


112700 000015 


9 020656 000207 


020644 022114 
8 020650 012737 022214 002172 
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SORINT basic Lr ROUTINE 5 
sPRINT BASIC LINE FOR HOST PROGRAM ERROR WITH UDA ADDRESS 
THEN SWITCH TO EXTENDED FORMAT 


CALRS: PNTB BASLN,#BASNO,#BASL2,(R5) ,ABAS ,ABAS 


CALL _RNTIME 
PRINT #CR 


MOV #PX,PTYPE 
RETURN 





MOV #BAS,-(SP) 


MO 

JSR _R1,LPNTB 
WORD BASLN 
“WORD PNT.CT 


MOVB #CR,RO 
CALL CPNT 


SEQ 0198 





GLOBAL SUBROUTINES SECTION 


010246 
012402 
004737 020022 


020670 012602 
8 020672 000207 


1 
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3PRE=PROGRAMMED ROUTINE 6 
:CALL ALTERNATE PRINT ROUTINE IN PDP=11 MEMORY 


CALR6: 


PUSH R2 


MOV (R4)+,R2 
CALL_OSTRNG 
POP R2 


RETURN 


SEQ 0199 


SAVE CURRENT STRING POINTER 
MOV R2,-(SP) 
GET NEW STRING POINTER 
OUTPUT USING THIS STRING 
GET OLD POINTER BACK 
MOV (SP)+,R2 


( 
NOW CONTINUE THE OLD STRING 
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GLOBAL SUBROUTINES SECTION 









1 sPRE=PROGRAMMED ROUTINE 7 
¢ sPRINT "REPLACE UDA MODULE M7161"" 
4 020674 CALR7: PUSH R2 
020674 010246 MOV R2,-(SP) 
5 020676 012702 013205 MOV #XFRU,R2 
6 020702 004737 020022 CALL _OSTRNG 
7 020706 POP R2 
0207 012602 MOV (SP)+,R2 


0706 
8 020710 000207 RETURN 
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GLOBAL SUBROUTINES SECTION 


1 ;PRE=PROGRAMMED ROUTINE 8 
¢ sPRINT ‘* UDASA CONTAINS XXXXXX"' 
4 020712 CALR8: PUSH R2 
020712 010246 MOV P2,-(SP) 
5 020714 012702 013154 MOV #XSA,R2 
6 020720 004737 020022 CALL_OSTRNG 
7 020724 POP R2 
020724 012602 MOV (SP)+,R2 
8 020726 000207 RETURN 
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GLOBAL SUBROUTINES SECTION 


1 : REPRINT LAST NUMBER 
2 : R4 => TABLE 
3 020730 005744 CALR9: TST =(R4) 
4 020732 000207 RETURN 


a 
ie 
Bs 


| I 16 
C 
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GLOBAL SUBROUTINES SECTION 


1 sGTDRVT 
:GET DRIVE TABLE POINTER 
5 ; INPUTS: 
6 ; RS = CONTROLLER TABLE ADDRESS 
7 R1 = DRIVE NUMBER 
8 OUTPUTS: 
9 : R4 = DRIVE TABLE ADDRESS 
10 : L$LUN = LOADED WITH UNIT NUMBER OF DRIVE 
3 : Z CLEAR IF DRIVE TABLE NOT FOUND AFTER ERROR PRINTED 
13 020734 GTDRVT: PUSH R2 
020734 010246 V_R2,-(SP) 
14 020736 010504 MOV R5,R4 4 3 CONTROLLER TABLE A DRE 4s 
15 020740 062704 000020 ADD #C.DRO,R4 D OFFSET TO DRIVE TABLE ADDRESS 
16 020744 012702 000010 MOV #8. ,R2 ‘Ger COUNT OF DRIVE 
17 020750 005714 1$: TST (R4) :CHECK IF AN ADDRESS HERE 
18 020752 001406 BEQ 3$ 
19 020754 027401 000000 CMP @(R4),R1 2 yey wy * NUMBERS 
20 020760 001412 BEQ 10$ ANCH IF A MATCH 
21 020762 005724 2$: TST (R4)+ BUMP ADDRESS 
22 020764 005302 DEC R2 
23 020766 001370 BNE 1$ :LOOK AT ALL OF THEM 
24 020770 3$: ERRDF 35,,ERRO35 UNIT NUMBER NOT FOUND 
020770 104455 TRAP CSERDF 
020772 000043 -WORD 35 
020774 000000 «WORD 0 
020776 013776 -WORD ERRO3S 
25 021000 POP R2 
021000 012602 MOV (SP)+,R2 
26 021002 000244 CLZ CLEAR Z AS ERROR FLAG 
27 021004 000207 RETURN 
0210 011404 10$: MOV (R4) ,R4 GET ADDRESS OF TABLE am 
$ og iale 116437 000002 002074 — AS -UNIT(R4) ,LSLUN 7GET UNIT NUMBER é 
021016 012602 MOV (SP)+,R2 
31 021020 000264 SEZ zSET Z FLAG 
32 021022 000207 RETURN 








GLOBAL SUBROUTINES SECTION 


NOMINOPONINPONPUNIARY) ea ss 
QAUIFSWN—OVOOBNOUS WR —OVOOnNOUSWwR— 


coo~ 
oS 
~w 
— 
So 
~~ 
So 


021076 
32 021100 








oo 
S 
Sk 


— =O | Vu On 


012600 
000207 


000060 
000071 


000060 


sGETCNT 


GET COUNT IN NEXT CHARACTERS OF STRING tg # * BY R2. 
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NUMBER Aa Pa IN DECIMAL. IF NO NUMBER, RETUR 


;DEFAULT 
3 INPUT S: 
;OUTPUTS: 


GETCNT: 


GETCNX: 


GETCDN: 


GETCXX: 





R2 = POINTER TO ASCII STRING 
R1 = NUMBER READ OR A O 


NE 
R2 = POINTING TO CHARACTER AFTER NUMBER 


PUSH RO 


CLR R1 
ayy (R2) ,#°0 


N 
POP RO 
RETURN 





zSTART WITH ZERO COUNT 
:ChECK IF CHARACTER A DIGIT 
BRANCH IF LOWER THAN ZERO 


BRANCH IF HIGHER THAN NINE 
sMULTIPLY NUMBER BY 10 
; SAVE 2N 


; COMPUTE 4N 

; COMPUTE 8N 

; 8N + 2N = 10N 

:GET DIGIT FROM STING 
ASCII 


:GET RID OF 
sADD_TO 


NUMBER 
360 TO NEXT CHARACTER 
CHECK IF Goeee IS ZERO 


CH 
: TO DEFAULT OF ONE 


CK 
:1F ZERO 


MOV RO,=(SP) 


MOV (SP)+,RO 


SEQ 0204 
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GLOBAL SUBROUTINES SECTION 


1 
2 
3 
4 
5 
6 
7 
8 
G 
10 
11 
12 
13 
14 021102 
15 021104 
16 021110 
021110 
021112 
021114 
17 021116 
18 021120 
19 021122 
20 021126 
21 021130 
22 021132 
021132 
23 021134 
24 021156 
25 021142 
26 021144 
27 021746 
28 021152 
29 021154 
30 021160 
31 021162 
32 021164 
33 021166 
34 021170 
35 021174 
36 021176 
37 021200 
38 021202 
39 021204 
40 021210 
021210 
41 021212 
42 021214 
43 021216 
44 021220 
45 021222 





010100 
004737 


010246 


012405 
010446 


010546 
005202 
005703 
001372 
005704 
001370 


021024 


000020 


000020 


000020 


100000 


000020 


021344 


;PNTNUM 
‘PRINT A NUMBER 


‘INPUTS: 

: R1 = RADIX OF NUMBER 

: R2 = ASCII STRING TO COUNT OF BITS IN NUMBER 
loa - POINTER TO NUMBER (LOW WORD) 

: NUMBER 1s PRINTED. LEADING ZEROS ARE PRINTED EXCEPT FOR 


ECIMAL NU ° 
: RO = CONTENTS DESTROYED 


PNTNUM: MOV R1,R0 
CALL GETCNT 
PNTNUS: PUSH <R2,R3,R5> 


SAVE RADIX 
:GET COUNT OF BITS 


MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R5,-(SP) 

GET ONE PARAMETER WORD 

CLEAR STORAGE FOR OTHER 

MORE THAN 16 BITS IN NUMBER? 


MOV (R4)+,R3 
CLR RS 
CMP R1,416. 


BL 
MOV (R4)+,R5 sYES, GET SECOND PARAMETER WORD 
18: PUSH R4 
MOV R4,-(SP) 
MOV RS,R4 ;PUT HIGH WORD IN R4 
MOV #16. ,R2 ;COMPUTE BITS NOT WANTED 
SUB R1,R2 ;BY SUBTRACTING BITS TO USE 
BGE 2$ sFROM 16. 
ADD #16.,R2 sIF NEGATIVE, ADD 16 FOR FIRST WORD 
2$: BEQ 6$ :I1F ZERO, NO BITS NEED BE CLEARED 
MOV #B1T15,R5 sSTART MASK WITH SIGN BIT SET 
3$: ats re COUNT BITS IN MASK 
a ;SHIFT MORE BITS TO RIGHT 
4$: ne q, #16. sMORE THAN 16 BITS IN NUMBER? 
oe sYES, CLEAR IN HIGH WORD 
5$: BIC R5,R3 3NO, CLEAR IN LOW WORD 
6$: CALL DIVIDE sDIVIDE BY RADIX IN RO 
PUSH R5 sPUSH REMAINDER ON STACK 
MOV R5,-(SP) 
INC R2 sCOUNT DIGITS ON STACK 
TST R3 sCHECK IF QUOTIEN] IS ZERO 
BNE 6$ 
TST R4 





SEQ 0205 









21230 


mr 


a aed ed od = od Ls 


1300 
1306 


RVVNVNN POPOPOPOPONONoNaNoNononongd 


NOOO NOU 
SOoOooooooo SoCo oCoOoOOCoOoOoCoOOoOoOOoOO 


Mrw—as aa 


021 
26 021342 


sty 44 
23 


0 
001372 


012605 
062705 


006207 


000012 


000014 


000003 
021344 


000060 
022114 


000060 
000071 


000007 


022114 


7$: 


8$: 
9$: 


10$: 


11$: 
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GLOBAL SUBROUTINES SECTION 


CMP RO,#10. 
BEQ 10$ 


BGT 
MOV #3,RO 


B 

PRINT #°0O 
DEC R3 
BNE 9$ 
POP RS5 
ADD #°0,R5 

CMP R5,#°9 

BLE 11$ 

ADD #<*°A="9=1>,R5 
PRINT RS 

DEC R2 


BNE 10$ 
POP <R4,R5,R3.R2> 


RETURN 


IF er te IS DECIMAL 


STACK 
: E NUMBER Y LEADING ZEROS 
DIVIDEND IS BITS IN 


NUMBER 
pee ¥f BITS PER DIGIT PRINTED 


:1F REMAINDER NOT ZERO 
: INCREMENT QUOTIENT 


sSUBTRACT DIGITS ON STACK 
:NO ate ZEROS IF ZERO 


3PRINT 


MOVB #°0,RO0 
CALL CPNT 


sREPEAT UNTIL COUNT REACHES ZERO 
GET CHACACTER FROM STACK 


HEX 
PRINT THE CHARACTER 


sCNVERT 70 aa DIGIT 
IF GREATER T A9 


FOR H 


REPEAT FOR ALL DIGITS 
ON STACK 


MOV (SP)+,R5 


; CONVERT TO 4 *OR AMIGHER 


MOVB RS, “. 
CALL CPN 


MOV (SP)+,R4 
MOV (SP)+,R5 
MOV (SP)+,R3 
MOV (SP)+,R2 


SEQ 0206 
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GLOBAL SUBROUTINES SECTION 


1 sDIVIDE 

2 

3 ‘DIVIDE A 32 BIT UNSIGNED NUMBER BY A 16 BIT UNSIGNED NUMBER. 

4 sREPLACE DIVIDEND WITH QUOTIENT AND RETURN REMAINDER. 

7 :WILL NOT CHECK FOR DIVIDE BY ZERO. 

7 : INPUTS: 

8 ; R3 - LOW 16 BITS OF DIVIDEND 

y : R4 = HIGH 16 BITS OF DIVIDEND 

10 RO = DIVISOR 

11 ‘OUTPUTS: 

12 : R3 = LOW 16 BITS OF QUOTIENT 

13 ; R4 = HIGH 16 BITS OF QUOTIENT 

i 3 R5 = REMAINDER 

16 021344 DIVIDE: PUSH R2 

021344 010246 MOV R2,-(SP) 

17 021346 012702 000040 MOV #32.,R2 :SET UP SHIFT COUNT 

18 021352 005005 CLR RS START WITH ZERO REMAINDER 

19 021354 006303 1$: ASL R3 ‘SHIFT LEFT INTO RS 

20 021356 006104 ROL R4 

21 021360 006105 ROL RS 
22 021362 020005 CMP RO,RS sWILL DIVISOR GO INTO REMAINDER 
23 021364 101002 BHI 2$ sONLY SUBTRACT = IT WILL 

24 0213 160005 SUB RO,RS ;SUBTRACT DIVISOR 

25 021370 005203 INC R3 [PUT A ONE INTO QUOTIENT 

26 021372 005302 2s: DEC R2 ;COUNT THE SHIFTS 

27 021374 001367 BNE 1$ 

28 02°376 POP R2 

76 012602 MOV (SP)+,R2 


0213 
29 021400 000207 RETURN 
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SEQ 0208 
; GLOBAL SUBROUTINES SECTION 


} ;BUILD DEFAULT 28-BIT NUMBER 
3 : INPUT: 
¢ S uTPUT R4 = POINTER TO 2 WORD DEFAULT NUMBER 
$ 3 TEMP = ASCIZ STRING REPRESENTING DEFAULT NUMBER 
8 021402 BLD28: PUSH <RO,R1,R3,R4,R5> 
021402 010046 MOV RO,-(SP) 
021404 010146 MOV R1,-(SP) 
021406 010346 MOV R3,-(SP) 
021410 010446 MOV R4,-(SP) 
021412 010546 MOV RS. -(SP) 
9 021414 011403 MOV (R4),R3 3GET NUMBER 
10 021416 016404 000002 MOV 2(R4), RG 
11 021422 012700 000012 nog #10. .RO sDIVISOR IS 10. 
12 021426 005001 CLR ;CLEAR CHARACTER COUNT 
13 021430 004737 021344 1$: ~y ROIVIDE 
14 021434 062705 000060 D #°0,R5 ;CONVERT REMAINDER TO ASCII CHARACTER 
15 021440 PUSH RS 3STORE ON STALK 
021440 010546 MOV R5,-(SP) 
16 021442 5201 INC R1 ;COUNT THE CHARACTER 
17 021444 10305 MOV R3,R5 » ;REPEAT UNTIL QUOTIENT IS ZERO 
18 021446 050405 BIS R4,R5 
19 021450 001367 BNE 1$ 
20 021452 012700 002262 MOV #TEMP,RO 3GET POINTER TO STRING 
21 021456 2$: POP RS zPUT CHARACTERS INTO STRING 
021456 012605 MOV (SP)+,R5 
22 021460 110520 MOVB R5,(RO)+ 
23 021462 005301 DEC R1 
24 021464 001374 BNE 2$ 
25 021466 105020 CLRB (RO)+ sEND WITH NULL 
26 021470 POP <R5, Ra. R3,R1,RO0> 
021470 012605 MOV (SP)+,R5 
021472 012604 MOV (SP)+,R4 
021474 012603 MOV (SP)+,R3 
021476 912601 MOV (SP)+,R1 
021500 012600 MOV (SP)+,RO 


27 021502 000207 RETURN 
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GLOPAL SUBROUTINES SECTION ' 
} sCONVERT ASCIZ STRING TO 28-BIT NUMBER 
3 : INPUTS: 
4 : TEMP = ASCIZ STRING UP TO 9 CHARACTERS LONK 
5 R4 = ADDRESS OF TWO WORD STORAGE 
6 OUT PUTS: 
7 3 IF STRING IS VALID NUMBER 
8 3 TWO WORDS AT R4 LOADED WITH NUMBER 
G 3 R4 ag if we TO WORD AFTER STORAGE 
10 3 CARRY ‘ 
11 3 IF STRING INVALID 
12 3 ERROR MESSAGE PRINTED 
1? : CARRY SET 
15 021504 CNV28: PUSH <RO,R1,R2,R3> 
021504 010046 MOV RO,-(SP) 
21506 MOV R1,-(SP) 
0215 MOV R2. -(SP) 
215 MOV R3,-(SP) 
ost3 at RO sSTART WITH ZEROS 
0215 002262 MOV STENP, R2 ;GET ADDRESS OF STRING 
021 1$: MOVB (R2)+, R3 7GET A DIGIT FROM STRING 
BEQ 3$ 31F NULL CHARACTER, ALL DONE 
15 000060 a tad ;SUBTRACT CHARACTER 0 
000011 CMP #9.,R3 
BLO 2$ 
ASL RO sMULTIPLY BY 2 
ROL R1 
PUSH <R1,R0> sSAVE N X 2 
MOV R1,-(SP) 
MOV RO,-(SP) 
ASL RO sTIMES 2 AGAIN FOR N X 4 
ROL R1 
ar y sTIMES 2 AGAIN FOR N X 8 
2 (SP)+,RO sADD N X 2 TO GIVE N X 10 
ADD (SP)+,R1 
_ Rs RO 3ADD CURRENT DIGIT 
170000 BIT #170000,R1 sCHECK SIZE OF 


NUMBER 
BEQ 1$ MUST NOT BE MORE THAN 28 BITS 





Nm 
—b 
nO 
Ww 
™ 


M—OVDONO 
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ee 
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CZUDCBO UDA & DISK DRV 
GLOBAL SUBROUTINES SECT 


004137 
005155 
000411 
004137 

6 


000403 


010024 
010124 
000241 


012603 


000207 






I 
ON 
022266 
2s: 
022266 
3$: 
4$: 


1 
AG MACRO V04.00 29-APR=82 17:36:04 PAGE S02 


PNTF INP28A 


SEC 
BR 4$ 


PNTF INP28B 


SEC 
BR 4$ 


MOV RO, (R4)+ 
MOV R1,(R4)+ 


CLC 
POP <R3,R2,R1,R0> 


RETURN 





PRINT PROPER RANGE 
JSR _R1,LPNTF 
-WORD INP28A 
«WORD PNT.CT 
SET CARRY TO ASK AGAIN 


sPRINT ILLEGAL CHARACTER 
JSR_R1,LPNTF 
-WORD INP28B 
«WORD PNT.CT 


:MOVE NUMBER TO STORAGE AREA 
CLEAR CARRY TO INDICATE ALL IS WELL 


MOV (SP)+,R3 
MOV (SP)+,R2 


SEQ 0210 





1722 
1724 


NOUEWN —OOONG USwr 
oooo oo 


MONIPINIPON NORA ee Ot es 





11270) 
004737 


010146 
000301 
004737 


012601 
112700 
004737 
010146 

01 
004737 


012601 
01 


110100 
004737 
000207 


000040 
022114 


021714 


021714 


000040 
022114 


021734 


177760 
000060 
000071 


000007 


022114 
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sPRINT HEX NUMBERS WITH LEADING SPACE 


T2PNTW: PRINT <#* > 


T2PNTB: 


PUSH R1 
SWAB R1 
CALL_T2PNT 
POP R1 
CALL T2PNT 
RETURN 


PRINT <#* > 


PRINT TWO HEX DIGITS FROM NUMBER IN R1 


T2PNT: 


T2PNTO: 


T2PNTD: 





PUSH R1 


ROR R1 
CALL T2PNTO 
POP R 


23 #°C17,R1 
ADD #° " RI 


CMP R1,4°9 

BLE T2PNTD : 
ADD #<'A-"9-1>,R1 

PRINT R1 


RETURN 


PRINT A SPACE 


MOVB #° ,RO 
CALL CPNT 


MOV R1,=(SP) 


PRINT HIGH TWO DIGITS 


MOV (SP)+,R1 


PRINT LOW TWO DIGITS 


PRINT A SPACE 


MOVB #° ,RO 
CALL CPNT 


:SAVE NUMBER 
SHIFT TO GET HIGH DIGIT 


MOV R1,-(SP) 


PRINT TWO DIGITS 
GET LOW DIGIT AGAIN 


MOV (SP)+,R1 
CLEAR OTHER BITS 
sCONVERT TO tly CHARACTER 
3IF GREATER T A9 


CONVERT 10. nw OR HIGHER 
:__FOR HEX DIGIT 
SPRINT THE DIGIT 
MOVB R1,R0 
CALL CPNT 


SEQ 0211 
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GLOBAL SUBROUTINES SECTION 


SVDWNAULSWN—OOONOUSWwh— 


Nowe eS SS oS SYS 


42 0 
$7 099102 
45 022104 
022104 
46 n55 106 


pat ete 

| 

| 

| 
029010 
21 093012 
5 

032106 

He 47 022116 


005000 


005004 
010246 


006304 
050204 
005200 


012602 


000207 


012602 


012600 
000137 


000040 


000060 
000011 
000021 
000026 
000007 


000040 


016440 


: T2GNUM 


GET A HEX 


; INPUTS: 


OUTPUTS: 
a 


STRING POINTER 


DIGIT FROM AN ASCII INPUT STRING 


NUMBER 
~ UPDATED STRING TO CHARACTER AFTER NUMBER 


RO = COUNT OF DIGITS (0 IF END OF LINE FOUND) 
T2GNUM: CL 


RR 
TSTB (R1) 


T2GND1: CL 


T2GND2: 


T2GND3: 


T2GNX: 


T2GNE : 


R 
PUSH R2 
MOV (R1)+,R2 
SUB #'0,R2- 
CMP R249. 
T2GND3 
CMP R2#<*A-"0> 
CMP R2,#<'F="0> 
T2GNE 
SUB #<*A-"9=1>,R2 
RG 


POP R2 
POP RO 
JMP T2CMDE 


ier DIGIT COUNT 
CHECK IF END OF LINE 
SREPORT ny — FOUND 
ste IF PACE 
F SO, IGNORE IT 


CLEAR NUMBER STORAGE 
sSAVE REGISTER 


GET CHARACTER 
sCONVERT TO HEX DIGIT 


MOV R2,-(SP) 


MOV (SP)+,R2 


CLEAN UP THE STACK 


MOV (SP)+,R2 
MOV (SP*+,RO 


| CZUDCBO UDA & DISK ore 


GLOBAL SUBROUTINES SECT 


| 
| 
| 
| 


—— 
NM=$OO0ON AMSWwR— 
po flojejololojlolol=) 
MNPoNoNoPonofponoefty 
POMQPONPNPNry 
SeWWwrnnn— 
RORNANOOR 


0 
19 022262 
022262 
20 022264 


110037 
010146 


012601 
000207 


002174 
003640 
000015 


003643 
160026 


002174 
000002 


000006 


002174 
000002 


000006 


002174 
000002 


000006 


002174 
000002 


000006 


:PRINT ONE CHARACTER 
[CALL WITH MACRO PRINT 


CPNT: 


PB: 


PX: 


PS: 


CPNTX: 


MOVB RO,ERRCHR 
PUSH R1 

MOV #ERRONE ,R1 
CMPB_RO,ACR 


BNE 1$ 

MOV #ERRNL,R1 

JMP @PTYPE 

PRINTF R1,#ERRCHR 


BR CPNTX 
PRINTB R1,M#ERRCHR 


BR CPNTX 
PRINTX R1,#ERRCHR 


BR CPNTX 
PRINTS R1,#ERRCHR 


POP R1 
RETURN 


Fo 
ion MACRO V04.00 29-APR-82 17:36:04 PAGE 205 


SEQ 0213 


MOV R1,=(SP) 


MOV ee pth 


MOV #ERRCHR ,-(SP) 
MOV R1,-(SP) 
MOV So at 


MOV SP, 
TRAP CSPNTB 
ADD #6,SP 


MOV #ERRCHR,-(SP) 

MOV R1,-(SP) 

MOV #2,-(SP) 
SP.RO 


MOV ° 
TRAP CSPNTX 
ADD #6,SP 


MOV #ERRCHR ,-(SP) 
MOV R1,-(SP) 

MOV #2,~(SP) 

MOV SP,RO 

TRAP CSPNTS 

ADD #6,SP 

MOV (SP)+,R1 


nr 
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} :PRINT FORMATTED MESSAGE 

: [CALL WITH MACRO PNT, PNTF, PNTB, PNTX, OR PNTS 

5 022266 012737 022144 002172 LPNTF: MOV #PF,PTYPE 

6 022274 000413 R LP 

7 022276 012737 022170 002172 LPNTB: MOV #PB,PTYPE 

8 022304 000407 

9 022306 012737 022214 002172 LPNTX: MOV #PX,PTYPE 

10 022314 000403 BR LENT 

11 022316 012737 022240 002172 LPNTS: MOV # YPE 

12 022324 LPNT: PUSH CRS, RS, R4,R5> 
022324 010246 MOV R2,-(SP) 
022326 010346 MOV R3,=(SP) 
022330 010446 MOV R4.-(SP) 
022332 010546 MOV R5.=(SP) 

13 022334 012102 MOV (R1)+,R2 :GET ADDRESS OF STRING 

14 022336 010604 MOV SP,R4 ; COMPUTE ADDRESS OF ARGUMENTS 

15 022340 062704 000012 ADD #10. ,R4 : WHICH ARE NOW ON STACK (IF ANY) 

16 022344 PUSH R1 ;SAVE RETURN ADDRESS. 
022344 010146 MOV R1,-(SP) 

17 022346 004737 020022 CALL OSTRNG ;PRINT THE FORMATTED MESSAGE 

18 022352 POP <RO,R5,R4,R3,R2,R1> TRESTORE ALL REGISTERS 
022352 012600 HOV (SP)+,RO 
022354 012605 MOV (SP)+.R5 
022356 012604 MOV (SP)+.R4 
022360 012603 MOV (SP)+.R3 
022362 012602 MOV (SP)+2R2 
022364 012601 (SP)+-R1 

19 022366 062006 ADD (RO)+,SP Aa yey STACK POINTER over’ ARGUMENTS 

20 022370 000116 JMP @RO RETURN 


SEQ 0214 


ao ee 
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WS CONOUSWH— 


a ie 


022372 


000004 
000002 


3 

CONOUE 
_ 

2 $=s 

o 
Ww 
Ww 
N 


000004 
004737 020734 


22 022432 005764 000002 
0 100004 
100000 


N= 
oo 
oS 
N 
NM 
& 
MIN 
oS 
o 
= 
oa 
= 
oO 
— 


002162 
000002 


—©o 


°o PENT NENT NIST NENT NT ep 4 Ww 


177774 
000002 
140000 


014246 


=N 


45 na 000261 
46 022530 


002074 


sPNTERR 


PRINT ERROR MESSAGE FROM DM PROGRAM REQUEST 11 OR 12. 


INPUTS: 


"RS = CONTROLLER “Es iate 


R& = MESSAGE DATA 


- COMMAND DATA ADDRESS 


0uTP UTS: 


PNTERR: 


1$: 


3$: 
2$: 


4$: 


5$:. 


ERROR MESSAGE PRINTED 


BIT 15 SET IN COMMAND DATA IF DRIVE HAS BEEN DROPPED 


PUSH <RO,R1,R2> 


TST 4(R4) 


MOVB_C.UNIT(RS) ,.LSLUN 


PUSH R4& 


MOV yet a 
CALL GTD 


BNE as. 

TST D.UNIT(R4) 
BIS #81715, (R3) 
POP R4 


BR 4$ 

POP R4 

MOV #ERRTYP,R2Z 
MOV 2(R4), , (R2) 
ROL (R2) 

BIC #*C3, (R2)+ 
MOV 2(R4), (R2) 
BIC ¢ #140060, (R2)+ 


CLR 

MOV #ERRRTN, (R2) 
ERROR 

CLC 

POP <R2,R1,R0> 


RETURN 
SEC 
4$ 


sGET DRIVE 


NUMBER 


sCHECK IF BIT 15 SET 
zIF SO, GET UNIT FROM CONTROLLER TABLE 


SAVE DATA ADDRESS 


:GET DRIVE 


MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 


MOV R4,-(SP) 


NUMBER 
GET DRIVE cooks ADDRESS 


F UNIT DRO 
PROCEED 


: TO 
TELL DM PROGRAM TO STOP TESTING THIS UNIT 


RESTORE DATA ADDRESS 


-_EXIT 
a IF UNIT HAS “BEEN DROPPED FROM TESTING 
BE TESTED 


IF STILL 


MOV (SP)+,R4 


MOV (SP)+,R4 


GET POINTER TO ERROR TABLE 


GET ERROR 


TYPE 


:CLEAR LOW 2 BITS 
sMASK LOW 14 BITS 


CLEAR MESSAGE POINTER 
ROUTINE NUMBER 
{PRINT THE ERROR MESSAGE 


CSERROR 


:DRIVE HAS NOT BEEN DROPPED 


zDRIVE HAS BEEN DROPPED 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


SEQ 0215 


~ 
| 
| 
} 
| 
| 


wee ew 
VORA =COMNOURWR— 


36 0. 
37 035805 
38 022604 


000004 
177000 
000010 
000340 


000003 
000010 


023666 
014444 
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SEQ 0216 
3 LOADDM 
LOAD AND START A DM PROGRAM INTO A CONTROLLER 
: INPUTS: 
5 = CONTROLLER TABLE ADDRESS 
IMPLICIT INPUTS: 
; DMPROG = POINTER TO START OF DM PROGRAM IN MEMORY 
s OUTPUTS: 
; IF LOAD SUCCEEDS = Z CLEAR 
: CONTROLLER TAP: E MARKED LOADED 
: IF ERROR = Z SET 
LOADDM: 
MOV C.VEC(RS) ,R4 GET VECTOR OF UDA 
AND CT.VEC,R4 
BIC #*C<CT.VEC>,R4 
oa ae Ch. al 2GET INTERRUPT SERVICE LINK 
SETYEC R4,R1,#PRIO7 SET UP INTERRUPT VECTOR 
MOV #PRIO7,-(SP) 
MOV R1,-(SP) 
MOV R4,=(SP) 
Vv #3,-(SP) 
TRAP CSSVEC 
#10,SP 


ADD 
INITIALIZE UDA WITH SMALLEST 


nN a sPOSITION VECTOR FOR UDA 

CALL _UDAINT 3_RING ee AND INTERRUPTS ENABLED 
BEQ LOADER CH_IF AN 0 

CALL HCOMM TALLOCATE SPACE FOR HOST COMM AREA 


too eee eS 
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| 2 022610 023727 002230 000001 CMP TNUM,#1 3IF TEST NUMBER 1 
3 022616 001440 BEQ LOADT1 :__DO SPECIAL LOAD 
5 022620 017701 157370 MOV @DMPROG,R1 :GET SIZE OF PROGRAM 
6 022624 012700 000002 LOADB: MOV #0P.ESP,RO sBUILD EXECUTE SUPPLIED PROGRAM COMMAND PACKET 
? 022630 004737 023150 CALL BLDCMD 
8 022634 013764 002214 000124 MOV DMPROG,HC.CPK+P. — sLOAD MAIN PROGRAM ADDRESS 
9 022642 010164 000120 MOV R1,HC.CPK+P.BCNT(R4) : _AND SIZE 
10 022646 013764 002214 000140 MOV DMPROG,HC.CPK+P.OVRL(R4) sLOAD OVERLAY ADDRESS 
11 022654 067764 157334 000140 ADD @DMPROG, HC.CPK+P.OVRL(R4) 
15 022662 004737 023234 CALL SNDCMD SEND COMMAND TO 
16 022666 004737 023374 CALL WAITMS WAIT FOR yi URE SPONSE 
17 022672 032764 000037 000032 BIT #ST.MSK,HC..MPK+P.STS(R4) :CHECK FOR ERROR 
78 022700 001115 BNE LOADE1 ‘ 
19 022702 042765 000024 000014 BIC #CT.CMD+CT.REQ,C.FLG(RS) sCLEAR COMMAND OUTSTANDING FLAG 
9 ossiie $o44 000002 000014 as tues #CT.RN,C.FLG(R5) SET DM PROGRAM RUNNING FLAG 


Shoestring ia —— 


¢ 


-—-— -——__—_-_ —- -— 


K 1 
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GLOBAL SUBROUTINES SECTION 


oo 
Mr 
nom 
~“ 
Nm 
So 


22770 


023024 
31 023030 


012703 
020403 
103001 
010403 
010346 


13702 
62702 


012602 
012603 
7 


ELC 44 | 


000040 


000214 


002176 
000214 


000002 


023032 


000040 


SEQ 0218 


LOAD DM PROGRAM FROM MEMORY SPACE TESTED DURING 
zs INITIALIZATION IN TEST 1 


LOADT1: 


LTIL1: 


LT11: 


LTIL2: 


MOV @DMPROG,R4 
SUB #D 


MOV #<HC.BSZ*2>,R3 
CMP _R4,R3 


BHIS LT11 
MOV R4,R3 
PUSH &3 


MOV FFREE,R2 


SUB #<HC.BSZ*2>,R2 
PUSH R2 


MOV (RO)+,(R2)+ 
SUB #2,R3 


BNE LTIL2 
POP R2 


POP R3 
CALL LOAD 
BEQ LOADER 
ASR R 

ADD o? R1 


GR LOADB 


:GET SIZE OF DM PROGRAM IN BYTES 
3GET ADDRESS OF DM PROGRAM 
zSTART WITH OFFSET OF ZERO 


GET SIZE OF BOTH BUFFERS 
:IF FEWER BYTES REMAINING IN PROGRAM 


sUSE ACTUAL BYTE COUNT 
sSAVE THE BYTE COUNT 
MOV R3,-(SP) 


:GET ADDRESS OF BUFFER 
:SAVE BUFFER ADDRESS 


sMOVE DATA TO BUFFER 
:COUNT BYTES 


sRESTORE BUFFER ADDRESS 
MOV (SP)+,R2 
sRESTORE BYTE COUNT 
MOV (SP)+,R3 
sLOAD INTO UDA 
: a GET a. 
ZCONVERT BYTES T 
2 INCREASE OFFSET FOR ANEXT BUFFER 
ONVERT WORDS TO BYTES 
REDUCE yet BYTE COUNT 


;GET NEXT BUFF 
oY Kas ore COUNT OF HEADER ONLY 


MOV R2,-(SP) 


ee eee ee ee 


1 
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GLOBAL SUBROUTINES SECTION 


1 ; LOAD 
2 3 
3 Zs ISSUE DOWNLINE LOAD COMMAND TO UDA. CHECK THAT LOAD 
$ ;HAPPENS WITHOUT ERROR. 
6 7 INPUTS: 
7 : R1 = OFFSET FOR DM PROGRAM 
8 : sy = ADDRESS OF BUFFER CONTAINING PROGRAM 
% : R35 = SIZE OF BUFFER IN BYTES 
10 3 R5 = CONTROLLER TABLE ADDRESS 
11 sOUTPUTS: 
12 3 Z CLEAR IF NO ERROR 
1? : Z SET IF ERROR AND ERROR REPORTED 
18 023032 LOAD: PUSH <RO,R3,R4> 
023032 010046 MOV RO,-(SP) 
023034 010346 MOV R3,-(SP) 
023036 010446 MOV R4,-(SP) 
16 023040 012700 0000 MOV #OP.MWR,RO :GET DOWNLINE LOAD COMMAND 
17 023044 004737 023150 CALL BLDCMD sBUILD COMMAND PACKET 
18 023050 010264 000124 MOV R2,HC.CPK+P.UADR(R4) sSTUFF IN BUFFER ADDRESS 
19 023054 010364 000120 MOV R3,HC.CPK+P.BCNT(R4) sSTUFF IN BYTE COUNT 
20 023060 010164 000144 MOV R1,HC.CPK+P.RGOF (RS) sSTUFF IN OFFSET 
21 023064 €12764 000001 000140 MOV #1,HC.CPK+P.RGID(R4) sSTUFF IN REGION ID 1 
22 023072 004737 023234 CALL SNDCMD :SEND COMMAND TO UDA 
23 023076 004737 023374 CALL WAITMS sWAIT FOR MESSAGE RESPONSE 
24 023102 001420 BEQ LOADER : IF FAILED, EXIT 
25 023104 032764 000037 000032 BIT #ST.MSK,HC.MPK+P.STS(R4) ;LOOK FOR ANY ERROR 
26 023112 001010 BNE LOADE1 
27 023114 042765 000004 000014 BIC #CT.CMD,C.FLG(RS) :CLEAR COMMAND ISSUED 
28 023122 POP <R4,R3,R0> 
023122 012604 MOV (SP)+,R4 
023124 012603 MOV (SP)+,R3 
023126 012600 MOV (SP)+,RO 
29 023130 100244 CLZ :CLEAR Z TO INDICATE NO ERROR 
30 023132 000207 RETURN 


SEQ 0219 | 








ee SL tess t-te ee a a 
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} sUDA FAILED TO DOWNLINE LOAD DM PROGRAM 
3 623134 LOADE1: ERRDF 34,,ERRO34 
023134 104455 TRAP CSERDF 
023136 000042 -WORD 34 
023140 000000 «WORD 0 
023142 013770 «WORD _ERRI)34 
4 023144 000264 LOADER: SEZ :SET Z TO INDICATE ERROR OCCURRED 
5 023146 000207 RETURN 


ne 


---——— S - - S- - 


rr Sa ne Ge 
| 
| 
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i s;BLDCMD 

; BUILD A COMMAND IN COMMAND PACKET 

5 : INPUTS: 

6 ; RS = CONTROLLER TABLE ADDRESS 

7 = COMMAND CODE 

a S OUTPUTS: 

9 : R4 = ADDRESS OF HOST COMM AREA 

10 ‘ COMMAND PACKET CONTAINING REF NUMBER AND OPCODE. ALL OTHER FIELDS CLEARED. 

11 3 CMD REFERRENCE NUMBER IN CONTROLLER TABLE INCREMENTED AND RESUL 

12 : IN COMMAND PACKET. 

7 5 RO = CONTENTS DESTROYED 

15 023150 BLDCMD: PUSH <R1,R0> 
023150 010146 MOV R1,-(SP) 
023152 010046 MOV RO. -(SP) 

16 023154 016504 000016 MOV C.RING(RS) RS :GET ADDRESS OF HOST COMM AREA 

17 02316C 010400 MOV R4,R OPY TO RO 

18 023162 062700 000100 ADD #HC.CEV,RO ‘COMPUTE ADDRESS OF COMMAND ENVELOPE 

19 023166 012720 000060 MOV #HC.PSZ,(RO)+ [LOAD PACKET LENGTH 

20 023172 012701 001000 MOV #DUP,R1 LOAD DIAG CIRCUIT IDENTIFIER 

21 023176 022716 000031 CMP #OP.MWR, (SP) zIF CODE IS MAINTENANCE WRITE 

22 023202 001002 BNE BLDCO : GET OTHER CIRCUIT IDENTIFIER 

23 023204 012701 177777 MOV #DIAG,R1 

24 023219 010120 BLDCO: MOV R1,(RO)+ PUT IDENTIFiER INTO PACKET 

25 023212 012701 000030 MOV #<HC.PSZ>/2,R1 'GET WORDS TO CLEAR 

26 023216 005020 BLDC1: CLR (RO)+ sCLEAR PACKET 


28 023222 001375 
224 012664 000114 
30 023230 


023230 012601 
31 023232 000207 


DEC R1 
BLDC1 
POP HC.CPK+P.OPCD(R4) 
POP R1 
RETURN 


PUT OPCODE IN PACKET 


SEQ 0221 


MOV (SP)+,HC.CPK+P.OPCD(R4) 


sRESTORE R1 
MOV (SP)+,R1 





; 
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} ‘gee: 
3 SEND A COMMAND TO THE UDA. 
4 ;CLEAR THE ty PACKET. MARK BOTH PACKETS AVAILABLE TO THE 
5 2U SET COMMAND ISSUED BIT IN CONTROLLER TABLE AND INITIALIZE 
§ ; TIMEOUT COUNTER. 
8 S INPUTS: 
9 RS = CONTROLLER TABLE ADDRESS 
10 SOUTPUTS: 
} : R4 = ADDRESS OF HOST COMM AREA 
13 
14 0232 SNDCMD: PUSH <RO,R1> 
023234 010046 oe RO,-(SP) 
023236 010146 R1,-(SP) 
15. 023240 016504 000016 MOV C.RING(RS) ,R4 sLOAD R4 WITH HOST COMM AREA ADDRESS 
16 023244 005265 000044 INC C.REF (RS) : INCREMENT CMD REFERENCE NUMBER 
17 023250 016564 000044 000104 MOV C.REF(R5) ,HC.CPK+P.CRF(R4) PUT IN PACKET 
18 023256 012700 000014 MOV #HC.MEV,RO POINT TO MESSAGE ENVELOPE 
19 023262 060400 ADD R4, 
20 023264 012701 000032 MOV #<HC.PSZ+HC.ESZ>/2,R1 sSIZE_ OF MESSAGE PACKET 
21 023270 005020 SNDC1: CLR (RO)+ CLEAR ENTIRE MESSAGE PACKET 
22 023272 005301 DEC R1 
23 023274 001375 BNE SNDC1 
24 023276 012764 140000 000006 MOV #RG.CWN+RG.FLG, alts MCT(R4) ;MARK MESSAGE sae i AVAILABLE 
25 023304 012764 100000 000012 MOV #RG.OWN,HC.CCT(R4) MARK COMMAND 
26 023312 005775 000000 TST a(R5) :TELL UDA COMMAND IS THERE 
27 023316 052765 000004 000014 BIS #CT.CMD,C.FLG(RS) MARK COMMAND ISSUED 
28 023324 POP <R1,RO> 
023324 012601 MOV (SP)+,R1 
023326 012600 MOV (SP)+,RO 


29 023330 000207 RETURN 
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01 
001375 


012601 
012600 
000207 


000124 
000106 000120 
000043 


; CLRAUF 
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CLEAR THE SPECIFIED DATA BUFFER IN THE HOST COMM AREA 
sAND LOAD BUFFER DESCRIPTOR IN COMMAND PACKET TO THE BUFFER 


INPUTS: 


RS = CONTROLLER TABLE Ay 
R4 = ADDRESS OF HOST COMM AREA 
RO = OFFSET INTO HOST COMM AREA TO DATA BUFFER 


OUTPUTS: 


CLRBUF : 


CLRBFL: 





DATA BUFFER CLEARED 

COMMAND PACKET POINTING TO BUFFER 
BYTE COUNT SET TO SIZE OF BUFFER 
R4 = ADDRESS OF DATA BUFFER 


PUSH <RO,R1> 
MOV = gat} 
MOV R1,-(SP) 
ADD R4,R0 sADD START OF HOST COMM AREA TO OFFSET 
MOV RO,HC.CPK+P.UADR(R4? PUT BUFFER ADDRESS IN COMMAND PACKET 
MOV #HC.BSZ,HC.CPK+P.BCNT(R4) ;PUT SIZE OF BUFFER IN COMMAND PACKET 
MOV RO,R4 PUT BUFFER ADDRESS IN R4 
MOV #HC.BS2/2,R1 :GET SIZE OF BUFFER IN WORDS 
(RO) + sCLEAR ALL THE WORDS 


R1 
CLRBFL 
POP <R1,R0> 
MOV (SP)+,R1 
MOV (SP)+,RO 
RETURN 


SEQ 0223 


ee - . S 
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} sWAITMS 

? sWAIT FOR UDA TO RESPOND WITH A MESSAGE PACKET 

5 ; INPUTS: 

6 RS = ADDRESS OF CONTROLLER TABLE 

4 SOUTPUTS: 

8 : Z CLEAR IF NO ERROR 

10 : Z SET IF ERROR, MESSAGE PRINTED 

11 023374 WAITMS: PUSH <RO,R1> 
023374 010046 a nee -(SP) 
023376 010146 1,=(SP) 

12 023400 012700 000036 MOV #30.,R0 sSET TIME OUT VALUE OF 30. SECONDS 

13 023404 01/5501 MOV R5,R1 ;POINT TO TIME OUT COUNTE 

14 023406 062701 000040 ADD #C.TO,R1 

15 023412 064737 023604 CALL SETTO 

16 023416 11500 1$: MOV (R5),RO :GET ADDRESS OF UDAIP REGISTER 

17 923420 932765 000010 000014 BIT #CT.MSG,C.FLG(RS) LOOK IF INTERRUPT OCCURRED 

18 023426 001030 BNE BRANCH IF SO 

19 023430 016001 000002 MOY 2(RO),R1 LOOK AT UDASA REGISTER 

20 023434 001034 BNE 4$ :BRANCH IF ERROR CODE PRESENT 

26 023436 BREAK 
023436 104422 TRAP C$BRK 

27 023440 005737 002354 TST KW.CSR sSEE IF A CLOCK ON SYSTEM 

28 023444 001764 BEQ 1$ 

29 023446 023765 002366 000042 CMP KW.EL+2,C.TOH(RS) sCHECK IF TIMEOUT HAS HAPPENED 

30 023454 101005 BHI 2$ 

31 023456 001357 BNE 1$ 

32 023460 023765 002364 000040 CMP KW.EL,C.TOC(RS) 

33 023466 103753 BLO 1 

34 023470 2s: ERRDF 36,,ERRO36 
023470 104455 TRAP CSERDF 
023472 000044 -WORD 36 
023474 000000 WORD 0 
023476 014014 «WORD ERRO36 

35 023500 POP <R1,R0> 
023500 012601 MOV (SP)+,R1 
023502 012600 MOV (SP)+,RO 

36 023504 000264 SEZ 

37 023506 000207 RETURN 


012601 
012600 
000244 
000207 
104455 
000045 
000000 
014026 


012601 
012600 


000264 
000207 
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042765 000010 000014 3$: 


BIC #CT.MSG,C.FLG(RS) 
POP <R1,R0> 


RETURN 
ERRDF 37,,ERRO37 


POP <R1,R0> 


SEZ 
RETURN 


GIVE NO ERROR RETURN 


sCLEAR MESSAGE RECEIVED FLAG 


MOV (SP)+,R1 
MOV (SP)+,RO 


TRAP CSERDF 
WORD 37 
«WORD 0 
«WORD ERRO37 
MOV (SP)+,R1 
MOV (SP)+,R0 


| F 2 
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} sAPRINT 
3 ;CONVERT AN 18 BIT ADDRESS STORED IN TWO WORDS INTO A FORMAT 
: ;THAT WILL ALLOW PRINTING OF THE 18 BIT NUMBER. 
6 : INPUTS: 
7 HY RO - wae) OF Ti WORD BLOCK CONTAINING ADDRESS. 
8 : IRST WORL CONTAINING LOW 1 TS. 
9 SECOND WORD CONTAINING HIGH 2 BITS. 
10 S OUTPUTS: 
11 3 R1 = HIGH 3 BITS OF ADDRESS 
\¢ ; R2 = LOW 15 BITS OF ADDRESS 
14 023546 016001 000002 APRINT: MOV 2(RO),R1 4 Ae ae ¢ BITS 
15 023552 006301 ASL 
16 023554 011002 MOV (RO) ,R2 corr Lou i6 yeiis 
17 023556 100001 BPL APRIZ iF 16TH B SET 
18 023560 005201 INC R1 *PLACE ‘ IN WITH HIGH 2 BITS 
19 023562 000207 APRIZ: RETURN 
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} 3NXMI 

; [NON=EXISTANT MEMORY SERVICE ROUTINE 

5 3 INP PYTS: 

6 NXMAD SET TO ZERO 

7 OUTPUTS: 

8 ; NXMAD SET TO ONES IF NON-EXISTANT TRAP OCCURED 
10 023564 BGNSRV NXMI 

i 023564 012737 177777 002374 MOV #=1,NXMAD 

14 023572 ENDSRV 


023572 L10036: 
023572 000002 RTI 







CZUDCBO UDA & DIS 


K DRV 
GLOBAL SUBROUTINES SEC 


TION 
UDASRV 


: INTERRUPT HAS BEEN RECEIVED. 


THE CONTROLLER TABLE. emt 


: INPUTS: 


ZOUTPUTS: 


Oeteee BGNSRV UDASRV 
023574 052710 000010 BIS #CT.MSG, (RO) 
POP RO 


023600 012600 
21 023602 ENDSRV 


023692 
023602 000002 


SO ONOUEWN—OOONOULWR— 


2 Se es 
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te MACRO V04.00 29-APR=82 17:36:04 PAGE 220 


UDA INTERRUPT SERVICE ROUTINE. MARKS UDA CONTROLLER TABLE THAT AN 


STHIS ROUTINE IS CALLED BY be tiaaas RO, yee ee oe FROM WITHIN 


D_IN RO IS THE ADDRESS OF THE C.FLG 


SWORD IN THE CONTROLLER TABLE. THE. STACK CONTAINS THE SAVED CONTENTS 
: OF RO FOLLOWED BY THE INTERRUPTED PC AND PS. 


RO = ADDRESS OF C.FLG WORD IN CONTROLLER TABLE 
STACK = SAVED CONTENTS OF RO 


: CT.CMD CLEARED AND CT.MSG SET IN C.FLG WORD OF CONTROLLER TABLE 
: RO = RESTORED FROM STACK 


UDASRV:: 
3SET CT.MSG 
sRESTORE RO 
MOV (SP)+,RO 


L10037: 
RTI 





CZUDCBO UDA & 
GLOBAL SUBROUT 


NOVSWN—OOUEWh— 


OND et et et ot ot 2s 


68 
69 023654 
Y 023656 


7 
75 0g 3668 


DI 
I 


SK D 
NES SECTION 


010246 


002362 


002364 
002366 
002364 
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:SETTO 
;SET TIMEOUT COUNTER TO SOME NUMBER OF SECONDS FROM CURRENT TIME. 


: INPUTS: 
: RO = NUMBER OF SECONDS FOR TIMEOUT 
R1 = ADDRESS WHERE TWO WORD TIME TO BE PUT 
OUTPUTS: 
: RO = CONTENTS DESTROYED 
: R1 = INCREMENTED BY 2 


sCOMPUTE CLOCK TICKS TIL TIMEOUT 
StTTO: PUSH <R2,R3> 


MOV R2,-(SP) 
MOV R3,-(SP) 


CLR R2 CLEAR PRODUCT 
MOV KW.HZ,R3 sGET MULTIPLICAND 
SETOO: ASR RO 4 yy MULTIPLIER TO RIGHT 
BCC SETO1 31F A ONE BIT SHIFTED OUT 
ADD R3,R2 ; ADD MULTIPLICAND TO PRODUCT 
R3 sDOUBLE THE MULTI’ LICAND 


SETO1: fet 
BNE SETOO 

:GET CURRENT TIME 

SETO2: MOV KW.EL,RO 
MOV KW.EL+2,R3 
CMP RO,KW.EL 
BNE SETO2 : GET ITA 

sADD TIME TIL TIMEOUT 


ADD R2,R0 2 ADD 
ADC RS 


:GET TIME 


3PUT RESULT IN STORAGE 


MOV RO,(R1)+ 
MOV R3,(R1) 


POP <R3,R2> 


MOV (SP)+,R3 
MOV (SP)+*,R2 





RETURN 


sCONTINUE UNTIL MULTIPLIER IS ZERO 


IF if mente RETRIEVAL 


SEQ 0229 


— 


| C 


tres) 


FWN SO OONOUSWN =O OONOUSWN— 


¥ NONININIR) to 


010400 
000300 


177770 
024606 


177770 
024606 


000002 
002200 


014406 


sUDAINT 


; FUNCTIONAL erring Torna 
SUBROUTINE TO INITIALIZE A_UDA AND BRING IT ON-LINE. 


; INPUTS: 


OUTPUTS: 


ALL 
DETECT 


ZUDCBO UDA & DISK DRV_ DIAG MACRO V04.00 29-APR-82 17:36:04 PAGE 302° 
GLOBAL SUBROUTINES SECTION 


L STEPS ARE CHECKED. 


AN ERROR MESSAGE IS REPORTED IF ANY ERROR 


RS = ADDRESS OF CONTROLLER TABLE. 

R4 = LEN, INTI AND VECTOR FIELDS TO SEND TO UDA 

fMPLICIT INPUTS: 
FFREE = an tient te atthe By OF “ aaata THIS ADDRESS IS GIVEN TO UDA 

FSIZE = SIZE OF FREE MEMORY. AVAILABLE IN WORDS. 


CONDITION Z = SET IF ANY ERROR REPORTED. CLEAR IF NO ERROR. 
R1 = SIZE OF RING BUFFER IN WORDS IF NO ERROR. 
R4 - canta Mg UDAIP REGISTER IN UDA 


R5 - 


sCHECK IF ENOUGH FREE MEMORY FOR RING BUFFER 


UDAINT: MOV R4,RO 


SWAB R 
ae, af | 


ROR RO 

BIC #177770,R0 
CALL CLOG 

ADD R2, Rt 

ASL R1 

ADD on 1$2/2,R1 
CMP _R1,FSIZE 
BLOS UDAI1 

JMP FMERR 





GET MESSAGE LENGTH 


COMPUTE LOGARITHMIC VALUE 
SAVE RESULT IN R2 
GET COMMAND LENGTH 


COMPUTE LOGARITHMIC VALUE 

zADD_THE TWO RESULT 

sMULTIPLY BY 2 WORDS PER RING 

zADD SPACE FOR INTERRUPT INDICATORS 
sCOMPARE WITH SIZE OF FREE MEMORY 


sFATAL ERROR IF NOT ENOUGH MEMORY 


SEQ 0230 


aa Bf GS rs ey eS 
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| :FILL HOST COMMUNICATION AREA WITH ALL ONES 
3 023750 013702 002176 UDAI1: MOV FFREE,R2 :GET FIRST ADDRESS OF -RING BUFFER 
4 023754 010103 MOV R1,R 7GET SIZE OF RING BUFF 
5 023756 012722 177777 UDAI1L: MOV Gate (R2)+ SWRITE ONES TO BUFFER © 
6 023762 005303 EC R :COUNT THE WORDS IN BUFFER 
: 023764 003374 BGT UDAIIL SLOOP UNTIL ENTIRE BUFFER WRITTEN 
2 :D0 THE INITIALIZATION 
11 023766 737 024136 CALL UDAIST :D0 FIRST THREE STEPS 
12 023772 103457 BCS U [GET OUT IF UDA MICROCODE REPORTED FAILURE 
13 023774 012364 000002 MoV Rs, 2(R4) ZWRITE NEXT WORD TO UDASA REGISTER 
14 024000 012700 000310 'GET TRY COUNTER 
15 024004 016402 000002 UDAI1A: MOV Sera *R2 ‘LOOK AT UDASA 
16 024010 001410 BEQ UDAITé 
17 024012 BPL 
18 024014 ERDF One eRRO2G 
24014 104455 TRAP  CSERDF 
024016 000030 .WORD 24 
024020 000000 “WORD 0 
024022 013600 -WORD ERRO24 
19 024024 000442 BR UDAIEX 
20 024026 005300 UDAI18: DEC RO 
21 024030 001365 BNE UDAI1A 
22 024032 010264 000002 UDAI1C: MOV R2,2(R4) ZWRITE 0 TO UDASA (PURGE) 
0240 011402 MOV (R4),R2 *READ FROM UDAIP ) 
24 024040 737 024446 CALL UDARSP [WAIT FOR STEP OR ERROR BIT 
25 024044 103432 BCS UDAIEX :GET OUT 1F UDA MICROCODE REPORTED FAILURE 
26 024046 PUSH = RT 
024046 010146 MOV R1,-(SP) 
27 024050 004733 CALL a(R3)+ : CALL LAST ROUTINE 
28 024052 POP R1 
024052 012601 MOV (SP)+,R1 
30 7CHECK HOST COMMUNICATION AREA FOR ALL ZEROS 
32 024054 013702 002176 UDAI2: MOV FFREE,R2 :GET FIRST ADDRESS OF RING BUFFER 
33 024060 010103 CV R1,R3 :GET SIZE OF RING BUFFER 
34 024062 005722 UDAI2L: TST (R2)+ ZCHECK WORD IN BUFFER 
35 024064 001003 BNE UDAI2E 60 T9 ERROR REPORTER IF NOT ZERO 
36 024066 005303 DEC R [COUNT THE WORDS IN BUFFER 
37 024070 003374 BGT UDAI2L LOOP "eitit ALL WORDS CHECKED 
38 024072 05 BR UDAI3 
40 024074 UDAI2E: ERRDF 23,,ERRO23 ZREPORT BUFFER NOT CLEARED 
24074 104455 TRAP  CSERDF 
024076 00002 «WORD 23 
Oot ioe Or sere HOR PRROZ3 
41 024106 00041 BR UDAIEX 





SEQ 0231 
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WNC OMNOU RWW 
felol~l~l ll.) 
POMOPONMIPONOFOND 
RRR RRS 
ek ed ed td wd ed 
Wrono— 
SNARES 


1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 





B76809 000006 


0 
052700 000001 
010064 000002 


000264 
000207 


;SEND GO BIT TO UDASA REGISTER TO END INITIALIZATION 
UDAI3: 
3GET BURST VALUE 
ASL RO ‘SHIFT TO POSITION 
BIS #SA, GO,RO ;SET THE GO BIT 
MOV RO,2(R4) :SEND TO UDA 
CL ZCLEAR 2 AS NO ERROR INDICATION 
RETURN 
;ERROR RETURN 


UDAIEX: SEZ 
RETUR 


MOV C.BST(RS),RO 
ASL RO 


SET Z TO INDICATE ERROR OCCURRED 





SEQ 0232 


WN — SO DONOUSWN— 


— 3 oY 


024136 


18 024160 
19 
20 
21 
22 024166 


23 024172 
24 024176 
024176 


024220 
25 024224 
26 024230 
2? 024232 

2 
28 024240 
29 024244 
30 osesee 


024254 
31 024256 
32 024260 


104422 
010146 


016504 
005037 


012746 
0 


100000 
0 


000004 


000000 
002374 


000340 


000003 
000010 
000002 
000004 
002374 





024344 
024344 
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sUDAIST 


START THE get i gh PROCESS ON THE SELECTED UDA. 
STOP BEFORE WRITING THE THIRD WORD SO UDA DOES NOT 
ATTEMPT ANY UNIBUS TRANSFERS. 


: INPUTS: 
: R5 = ADDRESS OF CONTROLLER TABLE 
: R4 = LEN, INTI AND VECTOR FIELDS TO SEND TO UDA 


3LOAD TABLE OF DATA TO SEND TO UDASA REGISTER 
UDAIST: BREAK 
PUSH R1 
BIS #SA.STP,R4 
MOV R4,UDAID1 
MOV FFREE ,UDAID2 LOAD MEMORY ADDRESS 
ADD #HC.MSG,UDAID2 : 
sSTART THE INITIALIZATION BY WRITING TO UDAIP REGISTER 
MOV C.UADR(RS) ,R4 


CLR NXMAD LEAR MEMORY ERROR F 
SETVEC #4,4NXMI ,#PRIO7 


:SET UP VECTOR 4 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

TST erg zACCESS Be ny REGISTER 

CLR (R4) WRITE TO UDAIP 

CLRVEC #4 7GIVE UP THE VECTOR 

TST NXMAD SEE IF A MEMORY ERROR OCCURRED 

BEQ UDAISG 


ERRDF 20,,ERRO20 


SEC 
BR UDAISE 





TRAP 


OF FIRST RESPONSE RING 


sGET ADDRESS OF UDAIP a 


TRAP 
- WORD 
- WORD 
«WORD 


SEQ 0233 


CSBRK 


MOV R1,=(SP) 
:SET STEP BIT IN DATA WORD 
LOAD LENGTH AND INTERRUPT VECTOR 


#PRIO7,-(SP) 


#4 RO 
CSCVEC 
CSERDF 
20 


0 
ERRO2O 
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} sSET UP LOOP PARAMETERS TO EXECUTE THE FOUR STEPS OF INITIALIZATION 
3 024262 012737 004000 024604 UDAISG: MOV #SA.S$1,UDARSD STORE RESPONSE MASK 
¢ 024270 012703 024336 MOV #UDAIDT,R3 sAND INDEX TO TABLE 
$ sWAIT FOR AND CHECK RESPONSE DATA 
8 024274 004737 024446 UDAISL: CALL UDARSP mr FOR STEP OR ERROR BITS 
9 024300 103414 BCS UDAISE sEXIT IF ERROR 
10 024302 004733 CALL a(R3)+ 3CALL RESPONSE — FOR STEP 
11 024304 103412 BCS UDAISE :GET OUT IF ERR 
12 024306 006337 024604 ASL UDARSD SSHIFT TO NEXT STEP BIT 
13 024312 032737 040000 024604 BIT #SA.S4,UDARSD sCHECK IF NOW AT STEP 4 
14 024320 001003 BNE UDAISX GET OUT IF SO 
15 024322 012364 000002 MOV (R3)+,2(R4) WRITE DATA TO UDASA REGISTER 
18 024326 000762 BR UDAISL :STAY IN LOOP 
18 024330 000241 UDAISX: CLC sCLEAR CARRY FOR NO ERROR INDICATION 
19 024332 UDAISE: POP R1 
024332 012601 MOV (SP)+,R1 


20 024334 000207 RETURN 


SEQ 0234 





—“SVONAOUSWN—OOCONOUSWwR— 


DOD a et et et oe ot es =o 


024362 
66 


29 024402 
30 024406 
31 024412 


32 024416 
33 


36 
37 024420 
. 024422 


4] 
42 024426 
43 024430 


0 
45 024442 
46 024444 


024354 
00 


024420 


012701 
000422 


013701 


010201 
042701 


020102 
001405 


104455 
000031 


013614 
000261 
000207 


004400 


024340 


177400 
010000 


024340 
177400 
020000 


137400 
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sDATA TO BE SENT AND RECEIVED BY UDA INITIALIZATION 
UDAIDT: .WORD UDAIR1 sFIRST WORD RESPONSE CHECK ROUTINE 


UDAID1: .WORD 0 FIRST WORD TO SEND T 
eWORD UDAIR2 SECOND WORD RESPONSE CHECK ROUTINE 
UDAID2: .WORD 0 SECOND WORD TO SEND T 


eWORD UDAIR3 
UDAID3: .WORD SA.TST 
-WORD UDAIR4 


sRESPONSE CHECK FOR FIRST WORD FROM UDASA 
CHECK FOR PROPER CONTROLLER TYPE 


UDAIR1: MOV #SA.S1+*SA.DI,R1 
BR UDAIRC 


D TO 
SFOURTH WORD RESPONSE CHECK ROUTINE 


3SET dial ONE BIT 
NOW COMPARE 


sRESPONSE CHECK FOR SECOND WORD FROM UDASA 
sCHECK FOR ECHO OF INTI AND VECTOR 


UDAIR2: MOV _UDAID1,R1 GET WORD SENT TO UDASA 


WAB R :GET HIGH 8 BITS 
BIC #177400,R1 
BIS #SA.S2,R1 sSET STEP 2 BIT 
BR UDAIRC NOW COMPARE 


RESPONSE CHECK FOR THIRD WORD FROM UDASA 
:CHECK FOR ECHO OF MESSAGE AND COMMAND RING LENGTHS 


UDAIR3: MOV UDAID1 R1 :GET WORD SENT TO UDASA 
BIC #177400,R1 JUST LOW 8 BITS 
BIS Ay $3,R1 ‘SET STEP 3 BIT 
BR UDAIRC [NOW COMP 


sRESPONSE CHECK FOR FOURTH WORD FROM UDASA 
CHECK FOR ECHO OF PURGE AND LFAIL BITS 


UDAIR4: MOV R2,R GET RESPONSE FROM UDA 
BIC PteSA, S4+SA.MCV>,R1 :KEEP MICROCODE VERSION AND STEP 4 


:COMPARE EXPECTED DATA IN R1 WITH ACTUAL DATA IN R2 
UDAIRC: CMP R1,R2 COMPARE THE DATA 
BEQ UDAIRX EXIT IF ee CORRECTLY 
ERRDF 25,,ERRO25 ;REPORT ERROR 
TRAP CSERDF 
-WORD 25 
«WORD 


0 
«WORD ERROZS 
SEC 
UDAIRX: RETURN 








024446 


OO BNOUSWN—OCVOONOUSWNR— 
oS 


NNN S| Ae et tS a 
m= 


024552 
37 024554 


SECTION 


010146 


104455 
6 


100000 
000012 


000040 
023604 
024604 
002354 
002366 


002364 
000002 


024604 


000002 


000042 


000040 


; UDARSP 
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‘WAIT FOR UDA TO RESPOND WITH DATA IN UDASA REGISTER. 
sEITHER STEP BIT FROM sion IN LOCATION UDARSD OR ERROR BIT 
3WILL CAUSE A TERMINATI 

ZAN ERROR MESSAGE WILL BE PRINTED IF THE UDA DOES NOT RESPOND 
sIN 10 SECONDS OR IF ERROR SETS. 


INPUTS: 


UDASRD = MASK OF STEP BIT TO LOOK FOR 
RS = ADDRESS OF CONTROLLER TABLE 
R4 = ADDRESS OF UDAIP REGISTER 


OUTPUTS: 


UDARSP: 


UDARS1: 


1$: 


Ea pata cat IF TIME achisten RESPONSE OR ERROR BIT SETS 


FROM UDASA 


AT. RE 
CARRY SET IF ERROR BIT SETS OR TIME OUT 


PUSH R1 
BIS #SA.ERR,UDARSD 
MOV # 0° 


CALL SETTO 
POP R 


BIT UDARSD,2(R4) 
BNE UDARS2 
BREAK 


TST KW. CSR 

BEQ UDAR 

CMP KW. 2, C.TOH(RS) 
BHI 1$ 

BNE UDARS1 

CMP KW.EL,C.TO(RS) 
BLO UDA ARsi 

MOV 2(R4) ,R2 
ERRDF BS Bee o22 


BR UDARSE 


MOV R1,=(SP) 
SET ERROR BIT IN MASK WORD 
3SET UP_FOR 10 SECOND TIMEOUT 
POINT TO COUNTER IN CONTROLLER TABLE 


MOV (SP)+,R1 
;LOOK AT ERROR AND STEP BIT 
sBRANCH IF EITHER SET 


TRAP C$BRK 
sSEE IF CLOCK ON SYSTEM 


sCHECK IF TIME OUT OCCURRED 


GET REGISTER CONTENTS 
REPORT TIME OUT ERROR 


TRAP CSERDF 
WORD 22 
«WORD 0 
«WORD ERRO22 


SEQ 0236 
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1 :CHECK IF ERROR BIT SET 

g 024556 016402 000002 UDARS2: MOV yet: jhe 

4 024562 100006 BP 

5 024564 ERROF 31. XeRRO2I 
024564 104455 


024 000025 

024570 000000 

024572 013414 
6 024574 000261 UDARSE: SEC 
7 024576 000207 RETUR 
sNORMAL EXIT 


024600 000241 UDARSX: CLC 
024602 000207 RETURN 


sLOCATION FOR STEP BIT MASK 
024604 000000 UDARSD: .WORD 0 


ee eee 
Oulwn—-OOoe 





tsetse» st 


3GET ay) CONTENTS 
sEXIT IF ERROR NOT SET 
REPORT ERROR INFO 
TRAP — 


WOR 0 
«WORD ERRO21 


CLEAR CARRY AS NO ERROR INDICATION 


:LOAD BY CALLING ROUTINE 


SEQ 0237 





010046 
005001 
000261 
006101 
005300 
100375 


012600 
000207 


E 3 
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CLOG 
[COMPUTE LOGARITHMIC VALUE OF NUMBER TO BASE 2. 
: INPUTS: 

OUTPUTS: 


RO = LOGARITHM TO BE CONVERTED 
R1 = VALUE OF 2 RAISED TO POWER OF INPUT NUMBER 


CLOG: PUSH RO 


MOV RO,-(SP) 
CLR R1 zSET UP ZERO START VALUE 


SEC WITH CARRY READY TO SHIFT IN 
CLOGLP: ROL R1 SHIFT TO LEFT 
EC RO : UNTIL RO 
BPL CLOGLP : GOES NEGATIVE 
POP RO 


MOV (SP)+,RO 
RETURN 


ne oe ee oe SS 
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j ;RDDLL 

; [READ DISK DRIVE DOWNLINE LOAD PROGRAM INTO MEMORY 

5 ; INPUTS: 

6 DLLNAM ~ NAME OF PROGRAM IN RADSO (TWO WORDS) 

7 OUTPUTS: 

8 : FREE MEMORY CONTAINING PROGRAM 

: : CARRY CLEAR IF NO ERROR, CARRY SET IF PROGRAM NOT FOUND 
11 024626 912701 000005 RDDLL: MOV #5,R1 :TYPE OF PROGRAM IN DATA FILE 
12 024632 004737 024666 CALL RDREC ‘READ PROGRAM INTO MEMORY 

13 024636 00610 ROL R1 SPRESERVE CARRY ST 

14 024640 004737 024650 CALL CLOSEF : WHILE CLOSING THE DATA FILE 
15 024644 006001 ROR R1 : AS NORMAL POSITION IS LOST 
16 024646 000207 RETURN 


G_ 3 
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} 3 CLOSEF 

? * CLOSE DATA FILE FOR DM PROGRAMS 

5 INPUTS: 

6 $ FILOPN = ZERO IF FILE NOT OPEN 

7 Zs OUTPUTS: 

: 3 NONE 
10 024650 005737 002260 CLOSEF: TST FILOPN 3SEE IF FILE CURRENTLY OPEN 
11 024654 001403 BEQ 1$ 
12 024656 CLOSE ; IF SO, CLOSE IT 

024656 104435 TRAP C$CLOS 

13 024660 005037 002260 CLR FILOPN z;AND MARK AS SO 
14 024664 000207 1$: RETURN 


ke ds os 
BNAVSWN—ODONOU SW 
oO 


25 
26 024726 
024726 


024730 
27 024732 


4752 


002260 


002242 
002260 


000001 


3 
CZUDCBO UDA & DISK DRV DIAG MACRO V04.00 29-APR-82 17:36:04 PAGE 333 
GLOBAL SUBROUTINES SECTION 


SEQ 0241 


sRDREC 
READ A RECORD FROM THE INPUT FILE. PLACE DATA INTO FREE MEMORY. 
3 INPUTS: 
3 R1 = FILE TYPE 
; 1 = TEST 1 DM PROGRAM 
; ¢ - TEST 2 DM PROGRAM 
3 - TEST 3 DM foe gn 
3 4 = TEST 4 DM PROGRAM 
3 5 = DRIVE DIAGNOSTIC ys LOAD PROGRAM 
: DLLNAM = IF R1 CONTAINS 5, TWO WORDS AT THIS ADDRESS CONTAIN 
3 E OF PROGRAM IN RADSO. 
; OUTPUT S: 
DATA FROM RECORD IN MEMORY 
; CARRY CLEAR IF NO ERROR, CARRY SET IF ERROR 
RDREC: PUSH <RO,R1,R2,R3,R4,R5> 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV R5S,-(SP) 
TST FILOPN sSEE IF FILE ALREADY OPEN 
BNE RDSTS 
OPEN #FNAME sIF NOT, OPEN FILE NOW 
MOV #FNAME ,RO 
TRAP CSOPEN 
INC FILOPN AND MARK AS OPEN 
RDSTS: CLR RS :CLEAR LOAD ADDRESS (SEARCH MODE) 
RDST: BREAK TALLOW PROGRAM TO BE 6 oo 
:GETBYTE CALLS DON'T SEEM TO BREAK ON CONTROL-C! 
GETBYTE R4 :GET A BYTE 
TRAP C$GETB 
MOVB RO,R4 
TST R4 ZERO 
BEQ RDST 3; KEEP READING 
CMP #1,R4 ;WHEN NOT ZER 
BNE RWRDE1 : BETTER BE A 
GETBYTE RO 3: AND THE NEXT BYTE 
TRAP C$GETB 
ADD RO,R4 
TST RO : IF ZERO, PROCESS DATA 
BEQ RDDAT 


<n 





MOIMIKRIPIPONY 
RARE AER 
SSSxanNe 


CONOUSWN=O0MD NOuUSwr— 
SeSSsssssssssss 


ot a os ot es 
MOPOPoNPOPNN 
wi wi w 

oO 

Nm 

So 


020001 
1 0 


000732 


000005 
002432 
002434 
002176 


002256 





1$: 
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CMP RO,R1 
BLO RDDAT 


CALL D 
GETBYTE RO 
ADD RO,R4 
TSTB R& 
BNE RWRDE1 
CMP 5 


BNE 1$ 
CMP + < te R2 


CMP DLLNAMS2, FDATA 
BNE RDST 

MOV FFREE,RS 

BR RDST 


SEQ 0242 


cere IF TYPE OF + og LOOKING F 
FT OON 


ILE, KEEP SEARCHING 
SIF PAST TYPE, sive ERROR RETURN 
[GET NEXT TWO WOR 


:GET CHECKSUM 


TRAP C$GETB 
ADD TO COMPUTED SUM 
+SEE . pus SUM_IS ZERO 
I REPORT “CHECKSUM ERROR 
TIF FILE TiyPE IS A5 


MATCH THE PROGRAM 


; NAME 
ZKEEP SEARCHING IF NOT DESIRED PROGRAM 


3GET STORAGE ADDRESS 
sSWITCH FROM SEARCH TO STORE MODE 


—_ 
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NUNS oo ud uduene 
NM=—ODDBNAUSWN =O ODBNOUSwh— 
Oooooooooooooao 
wi MMMM 
VSsBSOSwse 
Sanoanvonn 


3\3 
1 0251 
3 025164 


004737 
013703 


004737 
162703 
001443 
005705 

25 


025 


002256 
001000 
000001 


002176 


014420 
002256 
001000 


RDDAT: 


1$: 


2$: 


3$: 


4$: 


CALL _FWORD 
MOV FDATA,R3 
ALL FWORD 
SUB #6,R 
BEQ RWORDT 
TST RS 
BEQ 3$ 
MOV FDATA,R1 
ADD R3,R1 
SUB #DMFRST,R1 
DD R5,R1 
BIT #1,R1 

Q 1$ 


NC R 
SUB FFREE,R1 
BLOS 


SUB #DMFRST R2 
ADD R5,R2 

GETBYTE RO 
TST RS 

BEQ 4$ 

MOVB RO, (R2)+ 

ADD RO,R4 

DEC R3 

BNE 3$ 

GETBYTE RO 

ADD RO,R4 
TSTB R4 

BEQ RDST 

BR RWRDE1 





SEQ 0243 


neue BYTE COUNT 
AVE IN R3 


READ LOAD ADDRESS 
sSUBTRACT BYTES a A READ FROM BYTE COUNT 
eIF eath erocee O, THIS ISA 


RCH MODE, 
:__BYPASS TRANSFER ADDRESS COMPUTATION 
GET LOAD ADDRESS 
ADD BYTES IN RECORD 


COMPUTE STORAGE ADDRESS 
sCHECK IF ODD BYTE ADDRESS 


sIF SO, 

3; _INCREMENT 

3SEE IF MORE MEMORY NEEDS TO BE ALLOCATED 
sREDUCE TO WORDS 

sALLOCATE THE MEMORY 

3GET LOAD ADDRESS 

3GET DATA BYTE 


:IF_IN SEARCH MODE, 
: he DATA STORAGE 
STORE IN MEMORY 


sUPDATE CHECKSUM 
; COUNT E 


TRAP C$GETB 


GET CHECKSUM 
TRAP C$GETB 


ADD 
‘IF CHECKSUM CORRECT, 
; THEN GO READ ~ “RECORD 
: ELSE REPORT ERR 


r 


on 


NOUS wty 


ooooooo 
Porrororons 
w 
nm 
=] 
~ 


—— — — — —) 
NOw Swe “OVO 


104426 
060004 
110037 


104426 
06 


0004 
110037 
000207 


002256 


002257 


k_ 3 
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RWORDT: GETBYTE RO 


FWORD: 





SEQ 0244 


sREAD CHECKSUM BYTE 
TRAP C$GETB 


sADD TO COMPUTED CHECKSUM 
:CHECK LOW BYTE OF SUM 
sBRANCH IF CHECKSUM ERROR 
:IF IN SEARCH MODE, 

: KEEP ON SEARCHIN 


ADD RO,R4 
TSTB R& 
BNE RWRDE1 
TST RS 


BEQ RDST 
POP <R5,R4,R3,R2,R1,R0> 
MOV (SP)+,R5 


CLC 
RETURN 
GETBYTE RO ZREAD A BYTE FROM FILE 
TRAP  C$GETB 
ADD RO,R4 ZUPDATE CHECKSUM ERROR 
MOVB RO,FDATA ZSTART TO BUILD WORD 
GETBYTE RO [READ ANOTHER BYTE FROM FILE 
TRAP  C$GETB 


UPDATE CHECKSUM 


ADD RO,R4 
MOVB RO,FDATA+1 [COMPLETE WORD 
RETURN 
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2 09395 004737 024650 RDERR: Ay CLOSEF sCLOSE FILE AS POSITION IS LOST 
2 02525 <R5,R4,R3,R2,R1,R0> 
S252 012605 MOV (SP)+,R5 
$52 54 012604 MOV (SP)+,R4 
025256 012603 MOV (SP)+.R3 
025260 012602 MOV (SP)+,R2 
025262 012601 MOV (SP)+.R1 
025264 012600 MOV (SP)+,RO 
3 025266 000261 SEC sERROR RETURN, FILE NOT FOUND 
¢ 025270 000207 RETURN 
025272 104454 TRAP CSERSF 
025274 000005 eWORD 5 
025276 000000 «WORD 0 
5300 013326 -WORD ERROOS 
7 025302 DOCLN 
25302 104444 TRAP CSDCLN 











3 
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} skWwill 

7 sCLOCK INTERRUPT SERVICE ROUTINE 

5 025304 BGNSRV KW11! 
025304 KWI1I:: 

6 025304 062737 000001 002364 ADD #1,KW.EL ;COUNT THE INTERRUPT 

7 025312 005537 002366 ADC KW.EL+2 

8 025316 012777 000105 155030 MOV #KWOUT. ,aKW.CSR RESTART THE CLOCK 

9 025324 ENDSRV 
025324 L10040: 

1° 025324 000002 RT! 

11 025326 BGNSRV_ INTSRV ; UDA INTERRUPT SERVER 
025326 INTSRV:: 

12 025326 005237 002240 INC INTRCV ; FLAG INTERRUPT AS RECEIVED 

13 025332 ENDSRV 
025332 L10041: 
0253 000002 RTI 





—— 








; 
& 
5 
6 
7? 
8 
9 
10 625334 
025234 
11 025336 
025336 
12 025340 
13 025344 
14 025346 
15 025354 


CZUDCBO UDA & DISK D 
GLOBAL SUBROUTINES § 


104422 


104433 

005737 002354 
0014 

012777 000105 
000207 
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RESET 
sRESET ALL UNIBUS DEVICES THEN RESTART THE CLOCK IF IT IS PRESENT 


INPUTS: 


RESET: BREAK 
BRESET 
BEQ RESETX 


MOV #KWOUT. .aKW. CSR 
RESETX: RETURN 


KW.CSR = ADDRESS OF CLOCK REGISTER. ZERO IF NO CLOCK PRESENT. 
: KWOUT. = DATA TO SEND TO CLOCK REGISTER TO RESTART IT. 
‘eeteeie 


sRESET ALL DEVICES rasp 
sSEE IF A CLOCK IS PRESENT 
zSTART UP THE CLOCK 


SEQ 0247 


C$BRK 
CSRESET 


——- 
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1 ;RNTIME 
5 ;PRINT RUNTIME 
5 ; INPUTS: 
6 ; KW.EL = CONTAINS ELAPSED TIME 
? KW.HZ = HERTZ OF CLOCK 
8 ZOUTPUTS: 
5 3 IF CLOCK ON SYSTEM: 
10 ; RNTIME HH:MM:SS "* PRINTED 
i ; IF NO CLOCK: ONE SPACE 18 PRINTED 
13 025356 005737 002354 RNTIME: TST KW. CSR :CHECK IF A CLOLK PRESENT 
14 025362 001465 BEQ R SBRANCH IF 
15 025364 PUSH <RO-R3,RG RSD 
025364 010046 MOV RO,=(SP) 
025366 010346 MOV R3,-(SP) 
025370 010446 MOV R4,=(SP) 
025372 010546 MOV R5,=(SP) 
16 025374 013703 002364 MOV KW.EL,R3 3GET ELAPSED TIME 
17 025400 013704 002366 MOV KW.EL42,R4 
18 025404 013700 002362 MOV KW.HZ,RO :GET SPEED OF CLOCK 
19 025410 004737 021344 CALL DIVIDE COMPUTE SECONDS OF ELAPSED TIME 
20 025414 012700 000074 MOV #60. ,RO :NOW DIVIDE BY 60 
21 025420 004737 021344 CALL DIVIDE TO COMPUTE FINUTES 
22 075424 PUSH R5 SSAVE REMAINDER AS SECONDS 
025424 010546 MOV RS,=(SP) 
23 025426 004737 021344 CALL DIVIDE :DIVIDE BY 60 AGAIN 
24 025432 PNT RNTIM,R3 :PRINT HOURS 
025432 010346 MOV R3,=(SP) 
025434 004137 022324 JSR_R1LPNT 
025440 003646 ~WORD RNTIM 
025442 000002 -WORD PNT.CT 
25 025444 020527 000011 CMP R5,#9. :1F MINUTES 9 OR LESS 
26 025450 003004 BG 
27 025452 PRINT #°0 :PRINT A LEADING ZERO 
025452 112700 000060 MOVB #°0,RO 
025456 004737 022114 CALL CPNT 
28 02546 1$: PNT _RNTIM1,R5 :NOW PRINT MINUTES 
025462 010546 MOV RS,=(SP) 
025464 004137 022324 JSR_R1LPNT 
025470 003671 ~WORD RNTIM1 
025472 000002 -WORD PNT.CT 
29 025474 POP R5 :GET SECONDS 
025474 012605 MOV (SP)+,R5 
30 025476 020527 000011 CMP R5,#9. :1F 9 OR LESS 
31 625502 003004 BGT 2$ 
32 025504 PRINT #0 sPRINT A LEADING ZERO 
025504 112700 000060 MOVB #°0,RO 
025510 004737 022114 CALL CPNT 
33 025514 2$: ——- PNT_RNTIM2,R5 :NOW PRINT SECONDS 
025514 010546 MOV R5S,=(SP) 
025516 004137 022324 JSR_R1,LPNT 
025522 003677 ~WORD RNTIM2 
025524 000002 -WORD PNT.CT 
34 025526 POP <R5,R4,R3,RO> HOURS IN R3 
025526 012605 MOV (SP)+,R5 
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025530 012604 
012603 
012600 
112700 000040 
004 


737 022114 
36 025546 000207 RETURN 


37 
38 025550 ENDMOD 


RNTIMX: PRINT <#* > PRINT A SPACE 





SEQ 0249 


MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,RO 


MOVB #° ,RO 
CALL CPNT 










cece chet a4. 
REPORT 


025550 


_ 
N= COVOONOUSWN— 


a 
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SECTION 
.SBTTL REPORT CODING SECTION 
BGNMOD 
p++ 
; THE REPORT CODING SECTION CONTAINS THE 
; PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 
BGNRPT 
LSRPT:: 
PUSH — <RO,R1,R2,R3,R4,R5> 
010046 MOV RO,=(SP) 
010146 MOV R1.=(SP) 
010246 MOV R2,=(SP) 
010346 MOV R3.-(SP) 
010446 MOV R4.-(SP) 
010546 MOV R5.=(SP) 
PNTS RPTMSG, TNUM ;PRINT TEST NUMBER 
013746 002230 MOV TNUM,=(SP) 
004137 022316 JSR R1,LPNTS 
026224 .WORD RPTMSG 
000002 “WORD PNT.CT 
737 025356 CALL RNTIME :GET RUNTIME PARAMETERS 
PRINT #&CR sEND THE LINE 
112700 000015 MOVB 4#CR, -RO 
004737 022114 CALL CPN 
012701 002370 MOV ASTIME,R1 zAT 15 MINUTES FROM NOW 
012700 001604 MOV #15. #60. .RO 'SET TIME FOR NEXT REPORT 


004737 023604 





CALL SETTO 





SEQ 0250 
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4 025630 023727 002230 000004 CMP TNUM,#4 sIF NOT TEST 4 
6 025636 001402 BEQ 1$ g 
7 025640 000137 026136 JMP_RPTXX : THAT IS ALL 
8 025644 1$: PNTS RPTMSH 
025644 004137 022316 JSR _R1,LPNTS 
025650 026260 -WORD RPTMSH 
025652 000000 -WORD PNT.CT 
Oseeze 013705 002206 eeTcT MOV CTABS,R5S :GET ADDRESS OF FIRST CONTROLLER TABLE 
11 025660 005765 000002 TST C. a :SEE IF CONTROLLER AVAILABLE FOR TESTING 
13 025664 100520 BMI RPT 
14 025666 “ASSUME CT.AVL EQ BITI5 
20 025666 010504 MOV R5,R COMPUTE ADDRESS OF DRIVE TABLE POINTERS 
21 025670 062704 000020 ADD #C. “DRO, R4 
22 025674 012703 000010 MOV #8. ,R3. :GET COUNT OF DRIVES 
23 025700 012401 RPTDT: MOV (R4)+,R1 ;LOOK AT vein TER 
24 025702 001511 BEQ RPTCTIN :GO_ TO NEXT IF NO TABLE 
25 025704 005761 000002 TST D.UNIT(R1) :SEE IF DRIVE AVAILABLE 
27 025710 100504 BMI RPTDTN 


28 025712 ASSUME DT.AVL EQ BIT15 

















CZUDCBO UDA & D 
REPORT CODING S 


1 025712 


25722 


ooo 
RVVVVUUUUUURG 
w 4 
= 
io 


Nm 
w 
S 
o 


SOWNAULSWN SO OONOUSwh 
ssssssss 


ON) ed ek ed es et ed td od od 


0 

48 026114 
026114 
026116 
026120 
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SECTION 


001366 
012601 
016146 


Monon 
3 
~ 


603 


00226 
00002 
000040 


000200 


0 

002262 
000002 
026476 
000007 
000020 
000176 
000172 
000170 
026545 
000004 


000012 


1$: 


2s: 


PUSH <R3,R4,R5,R1> 


jay #TEMP RO 


CLR RG 
CALL ao 
ADD #°0,R5 
MOVB R5,-(RO) 
MOV R1,-(SP) 
BIS R2, (SP) 
BIS R3,(SP) 
BIS R4,(SP)+ 
BNE 2$° 

POP R1 


MOV 
sPLACE 18 Sromace CHARACTERS INTO 


TEMP S 


3 THEN A NULL CHARACTER 
2GET DRIVE TABLE STORAGE ADDRESS 
sGET SERIAL NUMBER 


sDIVIDE BY 10 
CONVERT TO ASCII CHARACTER 
sPUT DIGIT INTO TEMP STORAGE 


SEE IF QUOTIENT IS ZERO 


:I1F NOT, DIVIDE AGAIN 


SEQ 0252 


V (SP)+,R1 


PRINTS #RPTMSD,D.UNIT(R1),(R1) ,ATEMP,D.SEEK(R1) .D.XFRR(R1) “p. xR 


ASSUME D.DRV EQ 0 
PRINTS #RPTMD2,D.HERR(R1),.D.SERR(R1) ,D.ECCC(R1) 


POP <R5,R4,R3> 





D.XFRW(R1) ,=(SP) 
D.XFRR(R1) .=(SP) 
D.SEEK(R1) ,=(SP) 
#TEMP,~(SP) 

(R1) ,=(SP) 
D.UNIT(R1),-(SP) 
#RPTMSD ,-(SP) 
#7,-(SP) 

SPR 

CSPNTS 

#20,SP 


D.ECCC(R1) ,=(SP) 
D.SERR(R1) ,-(SP) 
D.HERR(R1) .=(SP) 
#RPTMD2 ,=(SP) 

#4 ,-(SP) 

SP RO 

CSPNTS 

#12,SP 


MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 


SEQ 0253 
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st 

—Ofwn— 

oooooo 
Mrovnny 
BAX 


26136 


026154 


ae | 
NM—OOBNOW fw 


026220 
29 026222 
31 026224 
32 026260 
33 026372 


34 026476 
i? 026545 


42 

43 026570 
026570 

026570 


0 

012600 
000167 
000412 


010046 
pigtoe 


000046 


000100 


000012 
000012 


RPTDTN: DEC a 


COUNT THE DRIVE TABLES 
sREPEAT FOR ALL DRIVE TABLES 


ECC'W\ 


BGT 
RPTCTN: 44 fant RS 360 TO NEXT CONTROLLER TABLE 
BNE RPTCT 
RPTXX: POP <R5,R4,R3,R2,R1,RO> 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+, *RO 
EXIT RPT 
-WORD JS$JMP 
«WORD 1 40062-2-. 
DIV10: PUSH RO sDIVIDEND IS IN manana ig (3) 
MOV #64.,R0 3SET UP SHIFT COUNT 
CLR RS s START WITH ZERO REMAINDER 
1$: ASL R1 
ROL R2 sSHIFT LEFT INTO RS 
ROL R3 
ROL R4 
ROL R5 
CMP #10.,R5 :SILL DIVISOR GO INTO REMAINDER? 
BHI 2$ ; Y SUBTRACT IF IT WILL 
SUB #10.,R5 ¢ SUBTRACT DIVIS 
INC R1 T A ONE INTO QUOTIENT 
2$: 3 * :COUNT THE SHIFTS 
POP RO sRETURN WITH QUOTIENT ow ts +.R0 
RETURN 3 <R4&,R3,R2,R1> AND REMAINDER om *R5 
RPTMSG: wrtdy brea a IN PROGRESS. ‘ 
RPTMSH: CII\N’ UNIT IVE SERIAL“NUMBER SEEKS MBYTES MBYTES HARD SOFT 
ASEH? ." X1000 READ WRITTEN ERRORS ERRORS’ W\ 
ae =e -ASCIZ\ES28D248 34D 33S 1272S 12D54S2RD54S32D52S2\ 


ore Z\ZD52S22052S12D52N\ 


ENDRPT 





L10042: 


TRAP CSRPT 


Pe ee cae ipa 4 
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-SBTTL PROTECTION TABLE 


34+ 


; THIS TABLE IS USED BY THE aw SERVICES 
: To PROTECT THE LOAD MEDIA 


ViFWNH=—O0 @GNOUSWwr— 
So 
[.) 
oa 
wn 
~ 
nm 


BGNPROT 
026572 LSPROT:: 
10 026572 177777 a | sOFFSET INTO P-TABLE FOR CSR ADDRESS 
11 026574 177777 =1 sOFFSET INTO P=TABLE FOR MASSBUS ADDRESS 
: 026576 177777 1 sOFFSET INTO P-TABLE FOR DRIVE NUMBER 
; 026600 ENDPROT 





—___—— 
A’ 
E 


CZUDCBO UD 
INITIALIZE SECT 


“SOVONOVUEWN—OO0O GNOUSwR— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
22 


026600 
026600 


DI 
I 
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-SBTTL 


INITIALIZE SECTION 


p++ 
: THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 


3 AT THE BEGINNING OF EACH PASS. 


BGNINIT 


-REM & 
IF HERE FROM CONTINUE COMMAND 


LSINIT:: 


en a "SET ICONT BIT IN IFLAGS 

IF —— RESTART COMMAND 

en SET IREST BIT IN IFLAGS 

IF HERE FROM POWER FAIL RESTART 
THEN 


RESET ALL UNITS 
PRINT STATISTICAL REPORT 


ENDIF 
IF HERE FROM START COMMAND 
THEN 


RESET ALL UNITS 
ESTABLISH FREE MEMORY 
CLEAR TNUM 


SET _ISTRT BIT IN IFLAGS, CLEAR OTHER BITS 
INITIALIZE CLOCK 
BUILD TABLES 


Ss 
ENDF CHECK TABLES FOR ADDED OR DROPPED UNITS 


SEQ 0255 


ase 


| se 
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; CZUDCBO UDA & 





READEF «: * CONTINUE 


012700 000036 
row BNCOMPLETE INIT1 
ge5ogs 000020 002226 BIC #ISTRTH, IFLAGS 
OS2737 GOODE e228 a, OE Oe AeeN 
012700 000037 : 
— BNCOMPLETE INITIA 
103003 
052737 000004 002226 odie BIS #IREST.IFLAGS 
012700 000034 F y 
eae: BNCOMPLET T2 
canal LETE INI 
004737 025334 CALL RESET 
DORPT 

setsient INIT2: READEF #EF.START 

3 STA 
012700 000040 
104447 ac * 
omy BCOMPLETE INI 


SEQ 0256 


sHERE FROM CONTINUE COMMAND? 
MOV #EF .CONTINUE ,RO 
TRAP CSREFG 


BCC INIT 


sSET CONTINUE a Y IN FLAG RECORD 
LOOK AT EVENT FLAGS 


3 JUMP IF NOT 


#EF RESTART ,RO 
TRAP CSREFG 
sSET IREST BIT IN IFLAGS , 


BC 
: _IF HERE FROM RESTART COMMAND 
HERE FROM POWER RESTART? 


INITIA 


MOV #EF .PWR,RO 
TRAP CSREFG 
JUMP IF SET 
BCC INIT2 
sRESET ALL_UNITS 
PRINT A STATISTICAL REPORT 
TRAP CSORPT 
HERE FROM START COMMAND? 
#EF .START,RO 
TRAP CSREFG 


JUMP IF NOT 
BCS INITS 


eee 





o 

oO 
Sixt 
AAO 
NNN 
Sroee 
QOrOsN 


RID) at et ot et td et = 6s ot 
—"OVOdBWNOulwn—OVooaw 
i=) 
mw 
o 
~ 
Ww 
™m 


040 
39 027042 





001355 


005003 


010300 
104442 


103030 


002206 
100000 
000020 
000010 
100000 


000046 


002206 


000046 


000010 
020734 


100000 
100000 


002012 


000002 INITC1: 


000002 


000002 
000002 
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sSET NOT AVAILABLE BITS IN ALL CONTROLLER AND DRIVE TABLES 


INITC2: 
B 


INITC3: 


MOV CTABS,RS 
BIS #CT.AVL,C.UNIT(RS) 


eee * etagsccacecscnlanans 
BGT INITC2 

ADD #C.SIZE.R5 

TST (R5) 

BNE INITC1 


3GET FIRST CONTROLLER TABLE ADDRESS 


sSET BIT IN CONTROLLER TABLE 
GET POINTER TO DRIVE TABLES 


GET COUNT OF DRIVE TABLES 
sCHECK IF ANY MORE DRIVE TABLES 


:SET BIT IN DRIVE TABLE 
sMOVE TO oY rhe TABLE 


4H THERE 
F SO, CLEAR THE BITS THERE 


:NOW GET EACH P=TABLE AND CLEAR NOT AVAILABLE BITS 


INITC4: 


INITCS: 


INITE1: 


INITCC: 


INITC6: 


CLR R3 

GPHARD R3,RO 
BNCOMPLETE INITC7 
MOV CTABS,RS 

CMP (RO), (R5) 

BEQ INITCC 

ADD &C. Sze, RS 
TST (R5) 


BNE INITCS 
ERRSF 6,,ERRO06 


DOCLN 

MOV HO. aa R1 

CALL GID 

BNE INITET 

BIC #CT.AVL,C.UNIT(RS) 
BIC #DT.AVL,D.UNIT(R4) 


INITC7: INC 


NC R 

CMP LSUNIT,R3 
BGT INITC4 
JMP INITXX 


sSTART WITH UNIT 0 
GET HW P=TABLE 


R3,RO 
TRAP CSGPHRD 
GO AROUND IF NOT AVAILABLE 
BCC INITC? 
:GET FIRST CONTROLLER TABLE 
COMPARE UDA ADDRESSES 
LOOK AT NEXT Pater TABLE 
:IF THERE IS 
TRAP CSERSF 
«WORD 6 
«WORD 0 
WORD ERROO6 
TRAP CSOCLN 


:1F NOT, GO 
sEXIT THE INIT CODE 


SEQ 0257 


CZUDCBO 
IN 


BO UDA & DI 
ITIALIZE SECTI 


1 027046 







0 
24 027212 
25 027220 
29 027224 
30 027230 
32 027234 


SK DRV 
ON 


005037 
012737 


000105 
005037 
005037 
012700 
104462 
103413 


012700 
104462 


103407 
005037 


012037 
013746 
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000120 


002354 
022266 


002354 


002200 
002226 


153134 


INIT3: 


BRESET 
MEMORY FFREE 


MOV @FFREE ,FSIZE 
LR TN 
MOV #ISTRT,IFLAGS 


s INITIALIZE CLOCK 


KYES: 


KNO: 


CLOCK L.RO 


BCOMPLETE KYES 
CLOCK P,RO 


BCOMPLETE KYES 


CLR KW.CSR 
PNTF NOCLOCK 


R HZ 
SETVEC Ku. VEC. #KW111,KW.BRL 


MOV #KWOUT. ,akW.CSR 
MOV #STIME ,R1 


CALL SETT 


SEQ 0258 


sRESET ALL UNITS 
TRAP CSRESET 
sRESET START OF FREE ats 


CSMEM 
MOV RO,FFREE 
E OF FREE MEMORY 
E TEST NUMBER TO NO TEST RUNNING 
FLAG FOR TEST 4 


DATA TO SEND TO KW11 TO START CLOCK 
CLEAR ELAPSED TIME 


sSEE IF AN L CLOCK PRESENT 
MOV #°L,RO 


TRAP CSCLCK 
BCS KYES 
SEE IF A P CLOCK PRESENT 
Vv #°P,RO 
TRAP CSCLCK 


BCS KYES 
zIF NEITHER, CLEAR CSR STORAGE WORD 


JSR_R1,LPNTF 
-WORD NOCLOCK 


«WORD PNT.CT 

STORE DATA RETURNED 

SET THE VECTOR 
MOV KW.BRL,-(SP) 
MOV #KW111,-(SP) 
MOV KW. VEC, -(SP) 
MOV #3,-(SP) 
TRAP CSSVEC 
ADD #10,SP 


START THE CLOCK 
SET TIME FOR NEXT REPORT 


C 
T 


CZUDCBO UDA & DI 
INITIALIZE SECTI 


027252 


= 
SCDOONOUSWNR— 


—_ 


027260 


NIRINONIR) 2 tt ees 
FWN—SOOOnoufwn — 


28 027324 


103075 


013703 
005713 
001416 
021013 
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002176 002206 
152740 
002210 


002206 


000004 
177000 
000002 


030166 
000046 





SEQ 0259 


s INITIALIZE CONTROLLER TABLE STORAGE WITH A WORD OF ZEROS 


sSTORE START OF CONTROLLER TABLES 
zZEROS MARKS END CONTROLLER TABLES 
CLEAR CONTROLLER COUNT 


MOV FFREE,CTABS 
CLR aCTABS 
CLR CTRLRS 


:GET A P-TABLE FROM DRS 


INIT4: 


3sSEE IF 


INITS: 


1$: 


LOGICAL UNIT NUMBER _IN R2 
GET POINTER TO A P-TABLE 
44 R2,RO 
TRAP CSGPHRD 
IGNORE IF NO TABLE —— 
Bcc NXTTAB 


CLR R2 
GPHARD R2,R0 


BNCOMPLETE NXTTAB 


A CONTROLLER TABLE ALREADY EXISTS FOR CONTROLLER IN P=TABLE 

MOV CTABS,R3 :GET ADDRESS OF CONTROLLER TABLES 
TST (R3) sCHECK IF ANY MORE TABLES 

BEQ NEWTAB BUILD NEW TABLE IF FOUND ZERO WORD 


CMP (RO), ¢(R3) 
ASSUME C.UADR EQ 0 
ASSUME HO.UBA EQ 0 
BEQ SAMTAB CHECK TABLE IF ALREADY EXISTS 
MOV C.VEC(R3),R1 sGET VECTOR FROM EXISING CONTROLLER TABLE 


BIC #*C<CT.VEC>,R1 
sSEE IF DEFFERENT VECTOR 


CMP - ctrnelan 
sERROR, CAN'T HAVE TWO UDA’S WITH SAME VECTOR 


BNE 

JMP SAMVEC 

ADD #C.SIZE.R3 ;MOVE TO NEXT TABLE 
BR INITS 


SCHECK IF SAME UNIBUS ADDRESS 


r 
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INITIALIZE SECTION 


} BUILD A CONTROLLER TABLE 

3 027326 012701 000023 NEWTAB: MOV #C.SIZE/2,R1 :GET WORDS IN ait TABLE 
4 027332 004737 014420 CALL ALOCM ALLOCATE SPACE FOR IT 

5 027336 011021 MOV (RO), (R1)+ : STORE Ral. ADDRESS 

6 027340 010221 MOV R2,(R1)+ [UNIT NUMBER 

? 027342 016004 000004 MOV_HO.BRL(RO) ,R4 GET BR LEVEL 

8 027346 000304 SWAB R4 sSWAP TO 

9 027350 006104 ROL R4 sSHIFT ONE MORE TO LEFT 

10 027352 056004 000002 BIS HO.VEC(RO) ,R4 sADD VECTOR ADDRESS 

11 027356 010421 MOV R4,(R1)+ : TO TABLE 

12 027360 016021 000006 MOV HO. “BST(RO), (R1)+ 

13 027364 012721 004037 MOV #4037,(R1)+ :PUT ee RO, UDASRVJ 

14 027370 012721 025574 MOV #UDASRV, (R1)+ TABLE 

15 027374 012703 000015 MOV #13.,R3- CLEAR POINTERS TO DRIVE TABLES, 
16 027400 005021 INIT7: CLR (R1)+ ; TIMEOUT COUNTER, FLAGS, REF. NUMBER 
17 027402 005303 DEC R3 

18 027404 001375 BNE INIT? sLOOP TIL ALL CLEARED 

19 027406 005237 002210 INC onaye :COUNT THE CONTROLLER 
20 027412 005011 CLR (R1) CLEAR TABLE END MARKER 

21 027414 000417 BR NXTTAB ;NOW GO TO NEXT P=TABLE 





Sl ee et sets senses 


“$m 





—o 
Pm 
S 

>o 

ES 

— 

me 
op 

me 


SooCooeoooo 
pA AA AAT SA A AS A 
~ 


7450 000137 


027454 005202 
027456 023702 
027462 003274 


027464 012701 
027470 004737 


SVONAVMUEWN—OVDONAUSWwh— 


[NO ee ee ee ee 





000004 


000002 
000004 
000006 


030116 


002012 


000001 
014420 
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000006 






sSHOULD BE SAME CONTROLLER, CHECK THAT OTHE’ PARAMETERS MATCH 
SAMTAB: ~——a :GET BR LEVEL owe P=-TABLE 
SHIFT ONE MORE TO LEFT 


ROL R4 
B:S HO.VEC(RO) ,R4 ‘ADD VECTOR ADDRESS 
COP R4.C.VECCR (R3) [COMPARE WITH CONTROLLER TABLE 
CMP HO.BST(RO),C.BST(R3) :COMPARE BURST RATES 
BEQ NXTTAB 

1$: JMP CTABER ;FATAL ERROR IF NOT SAME 

:GET NEXT P=TABLE 

NXTTAB: INC R2 Z INCREMENT LOGICAL UNIT NUMBER 
CMP LSUNIT, R2 ‘CHECK IF GOT ALL TABLES 
BGT INIT4 :IF NOT, GO BACK FOR NEXT 
MOV #1,R1 yALLOCATE SPACE FOR ZERO END WORD 


CALL ALO M sAFTER CONTROLLER TABLES 





SEQ 0261 | 


5 
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AL 
:;NOW BUILD DRIVE TABLES 
3 027474 005005 CLR RS sCLEAR CUSTOMER DATA FLAG 
4 027476 005002 CLR R2 ;LOGICAL UNIT NUMBER IN R 
5 027500 INIT8: GPHARD R2,R0 GET POINTER TO A P=TABLE 
027500 010200 Tee R2,RO 
027502 104442 TRAP CSGPHRD 
6 027504 BNCOMPLETE INIT14 sIF NOT AVAILABLE, GO GET NEXT 
? 027504 103060 BCC INIT14 
zFIND CONTROLLER TABLE 
10 027506 013703 002206 MOV CTABS,R3 3GET ADDRESS OF CONTROLLER TABLES 
11 027512 021013 INIT10: CMP (RO), (R3) sCHECK IF SAME UNIBUS ADDRESS 
12 027514 001403 BEQ INITi1 BRANCH IF TABLE FOUND 
13 027516 062703 000046 ADD #C.SIZE,R3 MOVE TO NEXT TABLE 
14 027522 000773 BR INIT10 
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1 sBUILD DRIVE TABLE 

3 027524 012701 000103 INIT11: MOV #D.SIZE/2,R1 GET SIZE OF DRIVE TABLE 

4 027530 004737 014420 CALL _ALOCM sALLOCATE SPACE FROM FREE MEMORY 

5 : RO POINTS TO ah 

6 ; R1 POINTS TO DRIVE TABLE 

7? ; R3 POINTS TO CONTROLLER TABLE 

8 ; R2 IS_UNIT NUMBER 
16 027534 010337 002262 MOV R3,TEMP sen EASE an Ehnon Tr RETErTES 

11 027540 062703 000020 ADD #C.DRO,R3 BUILD POINTER TO C. i ENTRY IN CONTROLLER TABLE 
12 027544 012704 000010 MOV #8. 3GET MAX COUNT OF DRIVES ON ONE CONTROLLER 
13 027550 005713 INIT12: TST (R35 SCHECK IF ENTRY CONTAINS POINTER TO DRIVE TABLE 
14 027552 001411 BEQ INIT13 
15 027554 026033 000010 CMP HO.LDR(RO) ,a(R3)+ sCHECK DRIVE NUMBER IN DRIVE TABLE 
16 027560 001002 BNE 1 
17 027562 000137 030132 JMP MLDRER sIF SAME, TWO P-TABLES POINT TO SAME DRIVE 
18 027566 005304 1$: DEC R4 COUNT DRIVES 
19 027570 001367 BNE INIT12 2 IF EIGHT ot bay TABLES EXIST, 
20 027572 000137 030150 JMP TOOMER ; THEN REPORT ERROR 
21 027576 010113 INIT13: MOV R1,(R3) LOAD DRIVE TABLE essen: 
22 027600 016021 000010 MOV HO. LDR(RO) ,(R1)+ LOAD DRIVE NUMBER 
23 027604 010221 MOV R2,(R1)+ ee 
24 027606 016011 000012 MOV HO.PRM(RO),(R1) Gen TEST AREA BIT 
25 027612 051105 BIS (R1),R5 AVE *‘OR’ ” BIT FROM ALL DRIVES 
26 027614 005111 COM (R1) COMPLI MENT IT 
2? 027616 AND HM.CYL,(R1) 

0276 042711 157777 BIC #*C<HM.CYL>,(R1) 

28 027622 052721 011012 BIS #DDEF,(R1)+ LOAD DEFAULT PARAMETER BITS 
29 027626 012703 000100 MOV #<D.SIZE/2-3>,R3 CLEAR REST OF TABLE 

30 027632 005021 INIT3L: CLR (R1)+ 

0276 005303 DEC 
2 003375 BGT 


INIT3L 
MOV #-1,<D.ECYL+2=D.SIZE>(R1) | ;MARK CYLINDERS AT TEST ALL 





32 027636 
33 027640 177777 =177754 





25 027656 
26 027662 
27 027664 
664 
027670 
027672 

28 027674 


41 027770 


002012 


020000 
022266 
002206 
000020 
000010 
020000 
000002 


004361 
000004 


000012 


000046 


000004 


CZUDCBO UDA & DI Sk DRV DIAG MACRO VO4.00 29-APR-~82 17:36:04 PA 
INITIALIZE SECTION 2 6:04 PAGE 555 


GO TO NEXT DRIVE TABLE 


INIT14: 


INC R2 
CMP a: Naa 
BGT INITS 


:IF ANY DRIVE SELECTED FOR EXERCISE 
GIVE WARNING 


INITW1: 


INITW2: 


INITW3: 
INITW4: 


BIT #HM.CYL,RS 
BEQ INIT15 
PNTF INITWA 


MOV Sar + age 


MOV #8. 
MOV (R45+,R3 
BEQ INITW4 
BIT #D.DCY,D.PRM(R3) 
BNE INITW3- 


DEC R1 

BNE INITW2 

ADD #C.SIZE,R5 
TST (R5) 

BNE INITW1 


SEQ 0264 


4 te i LOGICAL UNIT NUMBER 


IF GOT ALL TABLES 


:IF NOT, GET NEXT TABLE 


IN CUSTOMER DATA AREA 


CHECK IF BIT EVER SET 
sBYPASS IF NOT 
PRINT WARNING HEADER 


:GET FIRST CONTROLLER TAB 


JSR_R1,LPNTF 
WORD INITWA 
D PNT.CT 


ABLE 
:GET ADDRESS OF POINTER TO DRIVE TABLE 


GET COUNT OF DRIVE TABLES 
:GET ADDRESS OF DRIVE TABLE 


sCHECK IF CUSTOMER DATA SELECTED 
PRINTF #INITWB,D.UNIT(R3), (RS), (R3) 


A 
COUNT THE DRIVE — 


+ LOOK 


MOVE T 


PRINT NUMBERS 
(R3) ,=(SP) 
MOV (RS) ,=(SP) 
MOV D.UNIT(R3) ,-(SP) 
MOV #INITWB,-(SP) 
MOV #4 ,-{SP) 


SP RO 
TRAP CSPNTF 
#12,SP 


i ALL OF TH 
O NEXT ety ay TABLE 


:SEE IF ANOTHER TABLE A 
AT IT 


LOOK 





2 
3 
4 027772 


Ss) et os 


CZUDCBO UDA & DISK DRV 
INITIALIZE SECTION 


104450 
103013 
104443 
000404 
002262 
000120 
003564 
000001 
032737 
001001 
104444 


013737 
013737 


oneree 


012700 
104447 


103404 
012700 
04447 


F 
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000001 002262 


3GET CONFIRMATION TO PROCEED 


sSAVE CURRENT PARAMETERS TO FREE MEMORY 


MANUAL 


BNCOMPLETE INIT15 
GMANIL INITWC,TEMP,1,NO 


BIT #1, TEMP 


BNE INIT15 
DOCLN 


002176 002202 INIT15: MOV FFREE,FMEM 
MOV FSIZE,FMEMS 


INITXX: SETPRI #PRIOO 


002200 002204 


000000 


002414 
024650 


000040 


000037 


002370 
001604 
023604 





INITIM: 


KPRI: 





CLR DLL 
CALL 


L_CLOSEF 
READEF #EF START 


BCOMPLETE INITIM 
READEF #EF .RESTART 


BNCOMPLETE KPRI 


MOV uo R1 


MOV # 
CALL seiT 
EXIT INIT 


60. .RO 


SEQ 0265 


sCHECK IF MANUAL INTERVENTION ALLOWED 
TRAP CSMANI 


BRANCH IF ALLOWED 
zASK OPERATOR 


00$: 
;LOOK AT RESPONSE 
BRANCH IF ves WAS ANSWER 
: ABORT PROGRAM 
TRAP 
SO EACH TEST CAN USE ALL OF IT 


sSAVE START ADDRESS 
sSAVE SIZE 


: SET RUNNING PRIORITY TO ZERO 
MOV 
TRAP 

ERASE DOWNLINE LOAD DATA 

sMAKE SURE DATA FILE IS CLOSED 


MOV 
TRAP 


BCS 


MOV 
TRAP 


BCC 
sAT_15 MINUTES FROM NOW 
sSET TIME FOR NEXT REPORT 


TRAP 
- WORD 


INIT15 


CSDCLN 


#PRI00,RO 
CSSPRI 


#EF .START,RO 
CSREFG 


INITIM 


#EF RESTART RO 
CSREFG 


KPRI 


CSEXIT 
L10044-. 
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INITIALIZE SECTION 


1 ; DIFFERENT VECTORS, BR LEVELS OR BURST RATES FOR ONE CONTROLLER 
2 030116 010305 CTABER: MOV R3,R5 2GET CONTROLLER ADDRESS 


3 030120 ERRSF 1,,ERROO1 
030120 104454 TRAP CSERSF 
030122 000001 .WORD 1 
030124 000000 “WORD 0 
030126 013242 [WORD ERROO1 
4 030130 DOCLN 
. 030130 104444 TRAP  C$DCLN 
6 TWO P-TABLES FOR SAME DRIVE 
7 030132 013705 002262 iLDRER: MOV TEMP,RS 3GET CONTROLLER ADDRESS 
8 030136 ERRSF 2,,ERROO2 
030136 104454 TRAP CSERSF 
030140 000002 .WORD 2 
030142 000000 “WORD 0 
030144 013260 “WORD ERROO2 
9 030146 DOCLN 
* 030146 104444 TRAP — C$DCLN 
sMORE THAN EIGHT DRIVES SELECTED ON ONE CONTROLLER 
13 030159 %13705 002262 TOOMER: MOV TEMP,RS 3GET CONTROLLER ADDRESS 
14 030154 ERRSF 3,.ERROO3 
030154 104454 TRAP — CSERSF 
030156 000003 .WORD 3 
030160 000000 “WORD 0 
030162 013276 “WORD ERROO3 
15 030164 DOCLN 
* 030164 104444 TRAP _— C$DCLN 
1 ;TWO UDA'S USE THE SAME VECTOR 
19 030166 016305 SAMVEC: MOV R3,R5 sGET CONTROLLER ADDRESS 
20 030170 ERRSF 8,.ERROOS 
030170 104454 TRAP _— CSERSF 
030172 000010 .WORD 8 
030174 000000 “wORD 0 
030176 013364 “WORD ERROOS 
21 030200 DOCLN 
030200 104444 TRAP CSOCLN 
23 030202 ENDINIT 
030202 L 10044: 


030202 104411 TRAP CSINIT 
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AUTODROP SECTION 


} -SBTTL AUTODROP SECTION 

3 3+ 

4 ; THIS CODE 5 writ wee wt AFTER THE ee CODE IF 

5 3 THE ‘ADR’ FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 

6 $ SEE IF THEY WILL RESPOND. THOSE THAT YOON T ARE IMMEDIATELY 

‘ ; DROPPED FROM TESTING. 

9 ° 

10 030204 BGNAUTO 

- 030204 LSAUTO: : 

12 030204 ENDAUTO 
030204 L10045: 
030204 104461 TRAP 


CS$AUTO 


SEQ 0267 


| CZUDCBO UDA & DISK to DIAG MACRO V04.00 29-APR-82 17:36:04 PAGE Iso9 SEQ 0268 
CLEANUP CODING SECTION 


: -SBTTL CLEANUP CODING SECTION 
¢ 
4 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
2 ;_AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
7 
8 030206 BGNCLN 
9 030206 LSCLEAN:: 
9 030206 004737 024650 CALL CLOSEF sCLOSE DATA FILE 
13 030212 022737 000004 002230 CMP #4, TNUM ay WE DOING TEST #4? 
14 030220 0014 BEQ 1$ ; IF SO, DON'T RESET BUS 
17 030222 004737 025334 CALL RESET 
18 030226 1$: 
21 030226 ENDCLN 
030226 L10046: 
030226 104412 TRAP CS$CLEAN 


23 030230 ENDMOD 





——— 


C 


TEST 1: UNIBUS ADDRESSING TEST 


3 
~ 
3 


ONAUEWN—OOON ASW 
Mn 
Ws 
mo 


> 9 2 HY YH 3s 4 


20 030306 


012701 
004 


104432 
000776 


004737 


0 
000002 
000002 


000046 
151712 


025334 
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-SBTTL TEST 1: UNIBUS ADDRESSING TEST 


002212 
TINEXT: 
002074 


002212 TISKIP: 


TINOW: 


BGNMOD 
BGNTST 


ADD 
TST 


BNE 
EXIT TST 


CALL 





T1:: 
rant : INITIALIZE TEST PARAMETERS 
CTABS, TSTTAB ; GET ADDRESS OF FIRST CONTROLLER TABLE 
¢ ; GET CONTROLLER TABLE ADDRESS 

C.UNIT(RS) ,.LSLUN 3; CHECK IF UNIT AVAILABLE FOR TESTING 
C.UNITC(RS) 

NOW ; TEST IF AVAILABLE 
ASSUME CT.AVL EQ BIT15 
#C.SIZE,TSTTAB : MOVE TO NEXT CONTROLLER 
aTSTTAB 3: CHECK IF ANOTHER CONTROLLER TABLE 


TINEXT 


RESET 


: RESET ALL UNITS 


TRAP 
WORD 


Cc 
L 


SEXIT 
10047-. 


SEQ 0269 


Hae 7 


: UNIBUS ADDRESSING TEST 


8 030364 
9 030370 


ooo 
—22 
Rrww 
~ 

a 

a 


SsoE 

Ny Wty 
NN 
_ 
* 


—o 
= 

= 

Ww 


005737 
0014 


00 
014042 
104406 
000730 


002374 
000340 
023564 
000004 
000003 


000010 


000002 
000004 
002374 
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BGNSUB; 1 


T1GO00D: 


ENDSUB 


CLR NXMAD 
SETVEC #4,ANXMI ,#PRIO7 


MOV (R5),R4 
TST (R4) 
TST 2(R4) 
CLRVEC #4 


TST 
BEQ 
ERROF $8. ERRO3 


CKLOOP 
BR TISKIP 


T1.1: 


TRAP 
CLEAR MEMORY ERROR FLAG 


:GET ADDRESS OF UDAIP REGISTER 
READ UDAIP 


READ UDASA 
GIVE UP VECTOR 


3CHECK FLAG 


sEND TEST NOW 


L10050: 


TRAP 


C$8SUB 


SEQ 0270 


#PRI07,=(SP) 


#10,SP 


#4 ,RO 
CSCVEC 


CSERDF 
38 


0 
ERRO38 
CSCLP1 


C$ESUB 
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SEQ 0271 
TEST 1: UNIBUS ADDRESSING TEST 










1 030410 ; BGNSUB; 2 
030410 71.2: 
030410 104402 TRAP C$BSUB 
; 030412 DIATST: 
4 3 MAKE SURE UDA PASSES INTERNAL DIAGNOSTIC 
2 ; MAKE SURE UDA CAN SENSE STEP 1 AND 2 
7 030412 005014 CLR (R4) ; INIT UDA 
8 030414 012737 004000 024604 MOV #SA.S1,UDARSD 3; STEP 1 ASSERTED? 
9 030422 004737 024446 CALL UDARSP ; WAIT FOR RESPONSE 
10 030426 103410 BCS 1$ 3; If FAIL, EXIT 
11 030430 012764 100000 000002 MOV #SA.STP,2(R4) 3; SEND STEP 1 
12 030436 012737 010000 024604 MOV #SA.S2,UDARSD 3 STEP 2 ASSERTED? 
13 030444 004737 024446 CALL UDARSP 
14 030450 1$: 
15 ENDSUB 


L10051: 
TRAP CSESUB 


tre 
RRR 
wv 
ooo 








Re a a ee : a secant nie ; 
| eee UDA & DISK DRV DIAG ? ome V04.00 29-APR=82 17:36:04 PAGE 363 SEQ 0272 
test 1 : UNIBUS ADDRESSING TEST 


1 030452 BGNSUB; 3 
030452 11.3: 
030452 104402 TRAP C$BSUB 
¢ 030454 PORTST: 
3 : TEST THE DIAGNOSTIC LOOP MODE OF ALL UDA'S ON THE SYSTEM 
6 030454 011504 MOV (R5) .R4 : R4 POINTS TO UDAIP REGISTER 
7 030456 ASSUME C.UADR EQ 0 
8 030456 005014 CLR : oe THE UDA 
9 030460 012737 004000 024604 MOV #SA.S1,UDARSD : LOOK STEP 1 
10 030466 004737 024446 CALL UDARSP : WAIT FOR RESPONSE 
11 030472 103444 BCS 3$ : IF ERROR, BRANCH 
12 030474 016437 000002 031400 MOV 2(R4) ,WCHNGD : MOVE OLD 4 CONTENTS TO STORAGE 
13 030502 012764 140000 000002 MOV M<SA.STP+SA.WRP>,2(R4) ; INITIALIZE F WR 
14 030510 004737 031304 CALL WCHNG : WAIT FOR THE oPORT TO CHANGE 
15 030514 001433 BEQ 3$ : IF ERROR, BRANCH 
16 030516 022764 140000 000002 CMP H<SA.STP+SA.WRP>,2(R4) ; COMPARE WITH DATA WRITTEN 
17 030524 001017 BNE 5$ 
18 030526 012702 000001 4$: MOV #1,R2 3 SET UP + SHIFTING °1° 
19 030532 012703 000020 MOV #16. ,R3 : SET UP LOOP COUNT 
20 030536 016437 000002 031400 1S: MOV 2(R4) ,WCHNGD 3 SAVE “OLD PORT CONT 
21 030544 010264 000002 MOV R2,2(R4) : WRITE PATTERN TO UDASA FOR LOOP 
22 030550 004737 031304 CALL WCHNG : WAIT FOR UDASA TO 
23 030554 001413 BEQ $ : IF ERROR, BRANCH 
24 030556 020264 000002 cMP R2,2(R4) ; COMPARE RO WITH WHAT WAS ECHOED 
25 030562 001405 BEQ : IF MATCH, BRANCH 
0305 5$: ERRDF 26,,ERRO26 ; REPORT ERROR 
30564 104455 TRAP CSERDF 
0566 000032 WORD 26 
030570 000000 -WORD 0 
030572 013632 WORD ERRO26 
27 030574 000403 BR 3$ 3 BRANCH 
28 030576 006302 2s: ASL R2 3 MOVE THE 7 eet ING ONE LEFT BY 1 
29 030600 005303 DEC R3 : DECREMENT COUNT 
30 030602 001355 BNE 1$ : IF LOOP INCOMPLETE, BRANCH 
31 030604 3$: 
32 030604 ENDSUB 
030604 L10052: 


030604 104403 TRAP CSESUB 
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TEST 1: UNIBUS ADDRESSING TEST 


1 030606 BGNSUB; 4 
030606 71.4: 
030606 104402 TRAP  C$BSUB 

2 030610 INTEST: 

4 : TEST THE INTERRUPTS VECTOR AND BR LEVEL 

6 030610 011504 MOV (RS) ,R ; R4 POINTS TO UDAIP REGISTER 

7 030612 ASSUME C.UADR EQ 0 

8 030612 016503 000004 MOV C.VEC(R5) ,R3 3 GET VECTOR AND BRANCH LEVEL 

9 030616 010302 MOV R3,R2 : COPY TO R2 FOR B LEVEL 

10 030620 042703 177000 BIC #°CCT.VEC,R3 : CLEAR UNUSED VECTOR BITS 

11 030624 042702 170777 BIC #°CCT.BRL,R2 3 CLEAR UNUSED BRANCH LEVEL BITS 

12 030630 012701 000011 MOV #9.,R1 : SET UP TO SHIFT BR LEVEL 

13 030634 006202 1$: ASR R2 : SHIFT BY ONE BIT 

14 030636 005301 DEC R1 : COUNT SHIFTS 

15 030640 001375 BNE 1$ ; IF INCOMPLETE, BRANCH 

16 030642 010237 031402 MOV R2,BRLEV > SAVE THE BRANCH LEVEL 

17 030646 PNTX INTSTO, (RS) ,R3 ; PRINT BEGINNING OF INTERRUPT MESSAGE 
030646 010346 MOV R3,-(SP) 
030650 011546 MOV (R5),-(SP) 
030652 004137 022306 JSR R1,LPNTX 
030656 004143 ~WORD INTSTO 
030660 000004 <WORD PNT.CT 

18 030662 ASSUME C.UADR EQ 0 

19 030662 SETVEC R3,4INTSRV,#PRIOO ; SET UP INTERRUPT ROUTINE 
030662 012746 000000 MOV #PRI00,-(SP) 

012746 025326 MOV #INTSRV,=(SP) 

030672 010346 MOV R3,-(SP) 
030674 012746 000003 MOV #3,-(SP) 
030700 104437 TRAP  CSSVEC 
030702 062706 000010 ADD #10,SP 

20 030706 SETPRI #PRIOO ; SET PRIORITY TO O TO CHECK agg 5 1 y 
030706 012700 000000 MOV #PRI00,RO 
030712 104441 TRAP  C$SPRI 

21 030714 006203 ASR R3 ; DIVIDE VECTOR BY 4 FOR UDA INITIALIZATION 

22 030716 006203 ASR RZ . : DIVIDE VECTOR BY 4 FOR UDA INITIALIZATION 

23 030720 052703 100200 BIS #<SA.STP+SA.INT>,R3 ; SET OTHER BITS FOR UDA INITIALIZATION 

24 030724 005037 002240 CLR INTRCV ; FLAG AS NO INTERRUPTS RECEIVED 

25 030730 005014 CLR (R4) : INIT UDA 

26 030732 012737 004000 024604 MOV #SA.S1,UDARSD : LOOK FOR STEP 1 COMPLETION 

27 030740 004737 024446 CALL _-UDARSP : WAIT FOR COMPLET ION 

28 030744 010364 000002 MOV R3,2(R4) : MOVE STEP 1 DATA TO 

29 030750 012700 000012 MOV #10..RO ‘SET UP TIMEOUT OF 19 SECONDS 

30 030754 010501 MOV RS,R 

31 030756 062701 000040 ADD #C.TO,R1 :POINT TO CONTROLLER TABLE 

32 030762 004737 023604 CALL SETTO 

33 030766 005737 002240 9$: TST INTRCV : SEE IF INTERRUPTED 

34 030772 001016 BNE 11$ ; IF SO, EVERYTHING'S CK, SO BRANCH 

35 030774 BREAK ’ 


030774 104422 TRAP CSBRK 





ee - } 
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TEST 1: UNIBUS ADDRESSING TEST 





SEQ 0274 





1 030776 005737 002354 TST KW.CSR sSEE IF CLOCK ON SYSTEM 

2 031002 001771 BEQ 

3 031004 023765 002366 000042 CMP KW.EL+2,C.TOH(RS) sSEE IF TIME ELAPSED 

4 031012 101041 BHI 3$ 

5 031014 1364 BNE 9$ 

6 031016 023765 002364 000040 CMP KW.EL,C.TOCRS) 

7 031024 103760 BLO 9$ 

8 031026 000433 3$ ; BRANCH 

9 031030 005037 002240 11$: CLR INTRCV 3 FLAG AS NO_ INTERRUPTS RECEIVED 

10 031034 SETPRI #PRI07 : SET PRIORITY AS HIGHEST PRIORITY 
031034 012700 000340 MOV #PRI07,RO 
031040 104441 TRAP CSSPRI 

11 031042 005064 000002 CLR 2(R4) : WRITE SECOND STEP TO UDA 

12 031046 012702 000144 MOV #100. ,R2 3 SET UP DELAY SO WE KNOW WE'RE INTERRUPTED 

13 031052 005302 12$: DEC R2 3 DECREMENT C 

14 031054 001376 BNE 12$ : IF INCOMPLETE, BRANCH 

15 031056 012701 000007 MOV #7.,R1 : R1 IS PROCESS PRIORITY LEVEL 

16 031062 2s: PUSH 1 3 SAVE PRIORITY 
031062 010146 MOV R1,=(SP) 

17 031064 012702 000005 MOV #5. ,R2 3 SET UP FOR SHIFTING PRIORITY 

18 031070 006301 10$: ASL R1 : SHIFT PRIORITY 

19 031072 005302 DEC R2 : DECREMENT SHIFT COUNT 

20 031074 001375 BNE 10$ : IF _INCOMPLETE, BRANCH 

21 031076 SETPRI R1 : SET RUNNING PRIORITY TO R1 
031076 010100 MOV R1,RO 
031100 104441 TRAP CS$SPRI 

22 031102 POP R1 ; RESTORE R1 
031102 012601 MGV (SP)+,R1 

23 031104 005737 002240 TST INTRCV : SEE IF INTERRUPT RECEIVED 

24 031110 001007 BNE 4$ 3 IF SO, BRANCH 

25 031112 005301 DEC R1 : DECREMENT PRIORITY LEVEL 

26 031114 100362 BPL 2$ : IF ALL LEVELS UNTESTED, BRANCH 

27 031116 3$: ERRDF 28,,ERRO28 : REPORT NO INTERRUPTS ERROR 
031116 104455 TRAP CSERDF 
031120 0000 -WOR 28 
031122 000 «WORD 0 
031124 013670 WORD ERRO28 

28 031126 000420 BR 6$ ; BRANCH 
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CZUDCBO UDA & DISK 
TEST 1: 


00 
016503 
042703 


010300 
104436 


104403 


000000 


031402 


022306 


000004 
177000 


4$: 


5$: 


6$: 


ENDSUB 
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ADDRESSING TEST 


SETPRI #PRIOO 


INC R1 

CMP BRLEV,R1 

BEQ 

ERRDF 29,,ERRO29 
BR 6$ 

PNTX INTST1 

MOV C.VEC(RS) ,R3 
BIC #*CCT.VEC,R3 
CLRVEC R3 


SET RUNNING PRIORITY TO 0 
MOV 


TRAP 
SO PRIORITY = BR LEVEL 
SEE IF BR LEVEL MATCHES PRIORITY 


IF SO, BRANCH 
REPORT ERROR 
TRAP CSERDF 
.WORD 29 
<WORD 0 
«WORD ERRO29 


BRANCH 
PRINT TESTING COMPLETED 
JSR_R1,LPNTX 


«WORD INTST1 
«WORD PNT.CT 
GET VECTOR ADDRESS 
CLEAR UNUSED BITS 
CLEAR VECTOR 
MOV R3,RO 
TRAP CSCVEC 
L10053: 
TRAP CSESUB 


SEQ 0275 
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TEST 1: UNIBUS ADDRESSING TEST 





1 031206 BGNSUB; 5 

031206 11.5: 

031206 104402 | TRAP C$BSUB 
2 031210 005004 CLR RG ; INITIALIZE UDA WITH SMALLEST 
3 031212 004737 023666 CALL —_-UDAINT ; RING BUFFER AND INTERRUPTS DISABLED 
4 031216 ENDSUB 

031216 L10054: 

031216 104403 TRAP —CSESUB 
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TEST 1: UNIBUS ADDRESSING TEST 


1 031220 BGNSUB; 6 
031220 71.6: 


C$BSUB 
MOV #<SA. on MS1>+<5*SA. CM1>>,R4 sINITI ale UDA WITH RING — 
CALL UDAINT ; LARGE ENOUGH TO COVER NORMAL HOST COMM AREA 

; PACKET AND BUFFER SPACE (A 5 IN 

; LENGTH AND A 5 IN CMD LENGTH) 


L10055: 
TRAP C$ESUB 





: UNIBUS ADDRESSING TEST 


— 
So CO ONOUSF Ww 

oooooo[oo So 

NNN Nartetytrd 


ad aad ad eed 
fSwn— 


31302 


104402 


013746 


013746 
012701 
004737 


012637 
012637 


104403 
000137 


104401 


002176 
002200 
000001 
014632 
014726 
002200 


002176 


030266 


BGNSUB; 


1$: 


ENDSUB 


ENDTST 
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7 

PUSH FFREE 
PUSH FSIZE 
MOV #1,R1 
CALL RUND 
BEQ 1$ 

CALL RESPDM 
POP FSIZE 
POP FFREE 
JMP TISKIP 


71.7: 


TRAP C$BSUB 
; SAVE FREE MEMORY PARAMETERS 
MOV FFREE,-(SP) 


MOV FSIZE,-(SP) 


3 RUN DM PROGRAM IN 
3 ONE CONTROLLER ONLY 


MOV (SP)+,FSIZE 
MOV (SP)+,FFREE 


L10056: 
TRAP CSESUB 


L10047: 
TRAP CSETST 


SEQ 0278 








1 
2 
3 
4 
5 031304 
6 031310 
7 031312 
8 031316 
9 031322 
10 031330 
11 031332 
031332 
12 031334 
13 031340 
14 031342 
15 031350 
16 031352 
17 031354 
18 031362 
19 031364 
031364 
031366 
031370 
031372 
20 031374 
21 031376 
22 


23 
24 031400 
25 031402 


0 
000207 


000012 
000040 
023604 
000002 


002354 


031400 


002366 000042 


002364 


000040 


3 WCHNG 


WCHNG: 


1$: 


3$: 


2$: 


WCHNGD: 
BRLEV: 
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TEST 1: UNIBUS ADDRESSING TEST 


WAIT UNTIL UDASA CHANGES FROM WHAT IS IN WCHNGD 
my et eal ett Te 
ADD #C.TO,R1 : : 
CALL SETTO 
CMP 2(R4),WCHNGD 
BNE 2$ 
BREAK 
TST KW.CSR 

Q1 


BEQ 1$ 
CMP KW.EL+2,C.TOH(RS) 
BHI 3$ 


sSEE IF CHANGED 


TRAP 
:SEE IF CLOCK ON SYSTEM 
sCHECK IF TIME OUT OCCURRED 


BNE 1$ 
CMP KW.EL,C.TOCRS) 


B 
ERRDF 27,,ERRO27 ; REPORT ERROR 
TRAP 
«WORD 
«WORD 
- WORD 
SEZ : FLAG AS ERROR 
RETURN ; RETURN TO CALLING PROGRAM 
-BLKW 1 ; OLD PORT CONTENTS 
-BLKW 1 : WORD FOR BRANCH LEVEL STORAGE 








CSBRK 


CSERDF 
27 


0 
ERRO27 


SEQ 0279 












1404 
1404 


oo oo 
UW Ww 
= 
e 


— — 
Nm —COOONOUS Wh 
A 
= 
= 
= 
m™ 


— at 
NOUSW 


_ 
Co 


So 


~ 
t— 





012701 
004737 
013737 
004737 


013746 


013746 
012701 
004 


012637 
012637 


000002 
014504 


002206 
025334 
002176 
002200 
014682 
014726 
002200 
002176 


000046 
150514 


002212 


002212 
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TEST 2: DISK RESIDENT DIAGNOSTIC TEST 


-SBTTL TEST 2: DISK RESIDENT DIAGNOSTIC TEST 


T2NEXT: 


1$: 


BGNTST 


MOV #2,R1 
CALL TINIT 
MOV CTABS,TSTTAB 


CALL RESET 
PUSH FFREE 


PUSH FSIZE 


MOV #1,R1 
CALL_RUNDM 
BEQ 1$ 


CALL_RESPDM 

POP FSIZE 

POP FFREE 

ADD #C.SIZE,TSTTAB 
TST @TSTTAB 

BNE T2NEXT 

ENDTST 


T2:: 
;INIT TEST PARAMETERS 


GET POINTER TO FIRST CONTROLLER TABLE 
sRESET ALL UNITS 
SAVE FREE MEMORY PARAMETERS 
MOV FFREE,-(SP) 
MOV FSIZE,-(SP) 


RUN DM PROGRAM IN 
: ONE CONTROLLER ONLY 


MOV (SP)+,FSIZE 
MOV (SP)+,FFREE 


MOVE TO NEXT CONTROLLER 
:CHECK IF ANY MORE CONTROLLER TABLES 


L10057: 
TRAP CSETSI 


SEQ 0280 





ppc Un GURNEY acta aa 
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TEST 3: DISK FUNCTION TES 


1 -SBTTL TEST 3: DISK FUNCTION TEST 
: 031502 BGNTST 
‘ 031502 T3:: 
5 031502 012701 000003 MOV #3,R1 s INITIALIZE TEST PARAMETERS 
$ 031506 004737 914504 CALL TINIT 
8 031512 013737 002206 002212 MOV pha F TSTTAB sGET FIRST TABLE ADDRESS 
9 031520 013701 002210 MOV CTRLR $, R1 ZRUN DM PROGRAM ON ALL CONTROLLERS 
10 031524 004737 014632 CALL RUNDM : AT ONCE 
11 031530 001402 BEQ 1$ 
12 031532 004737 014726 CALL RESPDM 
13 031536 1$: 
14 031536 ENDTST 
031536 L10060: 
031536 104401 TRAP CSETST 


i Sl le, Sag PEPE EE BS BE IOS 
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| TEST 4: DISK EXERCISER 


1 .SBTTL TEST 4: DISK EXERCISER 
3 031540 BGNTST 
. 031540 
8 031540 022737 000004 002230 CMP #4, TNUM 
10 031546 001053 BNE T4STRT 
11 031550 022737 000002 002226 CMP #ICONT, IFLAGS 
1 031556 00104 BNE T4STRT 
13 031560 005037 002226 CLR IFLAGS 
14 031564 013704 002406 MOV LBUFS,R4 
15 031570 001423 BEQ LOGCHK 
16 031572 PNTF LOGM1 
031572 004137 022266 
031576 006132 
031600 000000 
17 031602 005037 002406 CLR LBUFS 
18 031606 012405 LOGOUT: MOV (RG)* RS 
19 031610 737 022372 CALL PNTERR 
20 031614 062704 000104 ADD gente BS7-2>, R4 
21 031620 020437 002410 CMP R4,LBUFN 
22 031624 103770 BLO LOGOUT 
23 031626 PNTF LOGM2 
031626 004137 022266 
031632 006164 
031634 
24 031636 000410 BR T4CON 
26 031640 032737 001000 002160 LOGCHK: BIT #SM.LOG,SFPTBL+SO.BIT 
27 031646 001404 BEQ T4CON 
28 031650 PNTF LOGM3 
031650 004137 022266 
031654 006211 
031656 
29 031660 005737 002234 T46CON: TST URNING 
30 031664 001404 BEQ T4STRT 
31 031666 004737 014726 CALL TRESPOM 
32 031672 000137 032244 JMP T4WAIT 





T4:: 


CHECK IF TEST 4 WAS IN PROGRESS 
BRANCH IF NOT 


BRANCH 
CLEAR FLAGS FOR vy Ht TIME HERE 
3GET LOG BUFFER POI wets 


NONE EXISTS 


IF ZERO 
# INTRODUCE “ERROR LOG 


D PNT 
CLEAR START ADDRESS TO Ense BUFFER 
3GET F caneh hepon — ADDR 


; BUMP 


3C 


PRINT ERROR R 
HECK IF A 


sPRINT ALL ENTRIES 


CHECK IF LOG ENABLED 
REPORT LOG EMPTY 


sRESTART IF 


I 
: CHECK ** — BY CONTINUE COMMAND 


JSR_R1,LPNTF 
mo D LOGHt | 


eT ne NEXT ENTRY 


JSR R1,LPNTF 
«WORD LOGM2 
WORD PNT.CT 


JSR_R1,LPNTF 
WORD LOGM3 


WORD PNT.CT 
+ CHECK IF ANY CONTROLLERS STILL RUNNING 


;CONTINUE BY RESPONDING TO REQUESTS 


SEND OF TEST WHEN DONE 


SEQ 0282 
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TEST 4: DISK EXERCISER 


PN fi fim pe mm 5 8 
ERO 


ed ed cd ed ed eed ed 
MN 


Soooooooo 
WWNWWWAWWWw 
Soon 

2 

= 

w 

Cc 


W 
= 
~“ 
nm 
™m 
S 


WANA 
—d ed ed od 
NnN 
, at 
aro 


w 
_ 
NN 
w 
o 


“SDONOULSWA!$OCO0O © NOUSWR— 
_ 
rr 
So 


NR) 2 a Ot oO 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


032004 
28 032010 
29 032012 001347 


3 
3 


000014 


000200 002160 


002236 
002206 
000010 


000020 


100000 


032266 
000020 


002236 


000046 


002226 


000002 


000006 


sSTART TEST 4 


T4STRT: ait 3} teat oI FLAGS 
BIT 4 ra -MAN, SFPTBL+SO.B1T 


BEQ T4DEF 
MANUAL 


BNCOMPLETE T4DEFW 


: INPUT PARAMETERS 


T4PRM1: MOV # 


AD 
T4PRM2: . V 


CLR UCNT 


PRM 
BIT #DT.AVL,D.UNIT(R3) 
— PRMS 


BN 

tab ot UEST 
aoe PAT(R3) 

BNE T RM3 


INC UcwT 


T4PRM3: DEC R 


T4PRM4: 


BNE T4PRM2 
ADD #C.SIZE.RS 
TST (RS) 

BNE T4PRM1 





SEQ 0283 


RUN WITH PREVIOUS PARAMETERS IF NEW PASS 
;MANUAL INTERVENTION MODE? 

zI1F NOT, SET UP DEFAULT PARAMETERS 
MANUAL INTERVENTION ALLOWED? 


3IF NOT, GIVE WARNING 


CSMANI 
BCC T4DEFW 


sCLEAR COUNT OF UNITS USING PATTERN 16 
GET FIRST ag TABLE 

GET COUNT OF DRIVE TABLES 

GET FIRST DRIVE TABLE POINTER 


+ DRIVE TABLE ADDRESS 
TO NEXT CONTROLLER IF NONE 
‘See IF TO BE TESTED 


zASK QUESTIONS 


COUNT DRIVE TABLES 
:GO LOOK AT NEXT 
:G0 TO NEXT CONTROLLER 


HERE FROM OPERATOR COMMAND? 
: IF THERE IS ONE 





TEST 4: DISK EXERCISER 
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1 s;NOW GET DATA PATTERN 16 IF SELECTED BY ANY DRIVE 
6 032014 GMANID T4DPC,PAT16C,D,-1,1,16.,YES sCOUNT OF WORDS 
032014 104443 TRAP cs 
032016 000406 BR 10000$ 
032020 002312 «WORD PAT16C 
032022 000052 «WORD TS$CODE 
032024 003507 «WORD T4DPC 
032026 177777 «WORD -1 
032030 000001 «WORD TS$LOLIM 
032032 000020 «WORD TSHILIM 
032034 10000$: 
4 032034 013701 002312 MOV PAT16C,R1 3GET COUNT OF WORDS 
5 032040 012704 002314 MOV #PAT16W,R4 sGET ADDRESS OF STORAGE 
6 032044 011437 002262 T4PRMS: MOV (R4), TEMP 
032050 104443 TRAP CSGMAN 
032052 000406 BR 10001$ 
032054 002262 «WORD TEMP 
032056 000032 -WORD TSCODE 
032060 003552 «WORD T4DPD 
32062 177777 «WORD -=1 
032064 000000 «WORD TSLOLIM 
32066 177777 «WORD TSHILIM 
032070 10001$: 
8 032070 013724 002262 MOV TEMP, (R4)+ 
9 032074 005301 DEC R1 ;COUNT THE WORDS 
10 032076 001362 BNE T4PRMS 
3 032100 000436 BR T4RUN 
i? GIVE WARNING MANUAL INTERVENTION NOT ALLOWED 
15 032102 T4DEFW: PNTF T4WARN 
32102 004137 022266 JSR_R1,LPNTF 
WORD T4WARN 


“WORD PNT.CT 

















WWNN— 


WWNWAWW 
ERSRNVaD 


MPP PoPoNory 


SooQCoooocooo 
MIN 

=I 

, a 

£oo 


WWW Ww 
ROPOROROPORORORS: 
—— 
wun 
aro 


oooo°ooeooo 
WWWAWw 
Monon 
RNFFRS 


oN the pet ee er a 


24 032176 
25 032202 

032202 
29 032210 
Hy 032214 
33 Oreece 


4 

41 032256 
42 

43 032260 

032260 

44 032262 

032262 

032264 





15 
001550 


006137 
042737 
012701 
004737 
013737 
013701 
004737 
001402 
004737 
032737 
001402 
104422 
000772 
104424 


104432 
001632 


002206 
000010 


000020 


000004 


157777 
011012 
000067 


000046 


002226 


177757 
000004 
014504 


002206 
002210 
014632 


002226 


002212 


014726 
001000 002160 
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TEST 4: DISK EXERCISER 


;SET UP DEFAULT PARAMETERS 
TGDEF: MOV CTABS,RS 
TGDEFA: MOV #8. ,R2 

T4DEFB: 


AND D. DCY, (R3) 
BIS #DDEF ,(R3)+ 
MOV #55.,R0 
(R3)+ 

RO 
rapere 


ap DEFB 
tT taal RS 


E T4DEFA 
sSTART TEST 4 


T4RUN: ROL IFLAGS 
AND ISTRTH,IFLAGS 


MOV #4,R1 
CALL TINIT 


MOV CTABS,TSTTAB 
CTRLRS,R1 


T4DEFC: 


T4DEFD: 
T4DEFE: 


T4WAIT: 


BR T4WAIT 
DORPT 
EXIT TST 


T4EXIT: 


L_RESPD 
BIT #SM. (0G. SFPTBL+SO.BIT 
BEQ T4EXIT 


sGET FIRST CONTROLLER TABLE 
GET COUNT OF DRIVE 


SEQ 0285 


TABLES 
GET FIRST DRIVE TABLE POINTER 


GET DRIVE TABLE ADDRESS 
GO TO NEXT CONTROLLER IF NONE 


sINITIALIZE ALL PARAMETER BITS 


BIC 


; COUNT wis TABLES 

G0 LOOK NEXT 

:60 TO NEXT CONTROLLER 
IF THERE IS ONE 


#*C<D.DCY>, (R3) 


sCLEAR FLAGS FOR NEXT TIME HERE 
HOLD START FOR T4UPRM REQUEST 
C #*C<ISTRTH>, IFLAGS 
INITIALIZE TEST PARAMETERS 


2GET 4h TABLE ADDRESS 


;RUN_DM PROGRAM ON ALL CONTROLLERS 
T ONCE 


sCHECK IF LOG IS ENABLED 
IF NOT 


sEXIT 
TRAP CSBRK 
WAIT TILL STOPPED BY CONTROL C 
PRINT STATISTICS 
TRAP CSDRPT 
TRAP CSEXIT 
«WORD 110061-. 


—_ oe 
“SOON OUS wr 
So 


010246 
010446 


011346 
0 


016337 
104443 


000020 


013763 
001424 


010304 
062704 
013701 
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000002 
022266 


000010 


002262 


000012 
002262 


sASK TEST 4 MANUAL INTERVENTION QUESTIONS 


S: 
RS = POINTER TO CONTROLLER TABLE 
R3 = POINTER TO DRIVE TABLE 
Re AN AND R4 MUST BE PRESERVED 


DRIVE TABLE WITH NEW PARAMETERS 
RO AND R1 CONTENTS DESTROYED 


T4QUEST:PUSH <R2,R4> 


PNTF T4QHED,D.UNIT(R3),(R5),(R3) 


MOV D.BB(R3), TEMP 


GMANID 148B,TEMP,D,-1,0,16.,YES ;NUMBER OF BAD BLOCKS 


MOV TEMP,D.BB(R3) 
T4Q0 


2GET POINTER TO STORAGE 
FOR BAD BLOCKS 


ADD #D.BB01,R4 AD BLOCK 
SGET COUNT OF BLOCKS TO INPUT 


MOV R2,-(SP) 
MOV R4,-(SP) 


MOV (R3),-(SP) 
MOV (R5),~(SP) 


MOV D.UNIT(R3) ,-(SP) 


JSR_R1,LPNTF 
WORD T4QHED 


«WORD PNT.CT 
TRAP CSGMAN 
BR 10002$ 
«WORD TEMP 
«WORD TSCODE 
-WORD T1488 

- WORD 


«WORD TSLOLIM 
«WORD TSHILIM 





) 
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K EXERCISER 
| 
3362 004737 021402 14001: CALL BLD28 ZBUILD DEFAULT ANSWER 
366 GMANID T48B1,TEMP,A,-1,0,9.,YES :BAD BLOCK 
366 104443 TRAP  C$GMAN | 
70 000406 BR 10003$ 
72 00226. .WORD TEMP | 
74 000152 WORD TS$CODE 
2376 002633 ;WORD  T4BBI 
400 177777 .WORD = | 
032402 000000 .WORD  TS$LOLIM 
032404 000011 “WORD TSHILIM 
032406 10003$: 
004737 021504 CALL CNV28 :CONVERT TO BINARY 
4 033412 103763 BCS T4001 “REPEAT UNTIL RIGHT | 
5 032414 005301 DEC R1 :DECREMENT COUNT | 
6 032416 001361 BNE T4001 :GET ALL NUMBERS 
7 032420 14002: 
8 032420 GMANIL T4DMN,TEMP,1,YES 
032420 104443 TRAP = C$ 
032422 000404 10004$ 
032424 002262 «WORD TE | 
032426 00013 “WORD TS$CODE 
2430 002543 .WORD T4DMN 
032432 00000 <WORD 1 
32434 10004$: 
032434 032737 000001 002262 BIT #1, TEMP 
32442 001002 BNE 
32444 000137 034110 a JMP T4030 | 
32450 016337 000004 002262 MOV D.PRM(R3), TEMP :GET PARAMETER BITS 
032456 GMANIL T4RO,TEMP,D.RO, YES ‘READ ONLY | 
032456 104443 TRAP _ C$GMAN 
2460 000404 BR 10005$ 
032462 002262 .WORD TEMP 
032464 000130 “WORD  TS$CODE 
032466 002645 <WORD  T4RO 
032470 004000 - -WORD D.RO 
032472 10605$: 
32472 032737 004000 002262 BIT #D.RO, TEMP 
32500 001404 BEQ T4003 zI1F NOT READ ONLY, GO TO WRITE ONLY QUESTION 
2502 042737 002000 002262 BIC #D.WO, TEMP TELSE, CLEAR WRITE ONLY GIT 
2510 000432 al BR 14005 ; AND BRANCH AROUND WRITE ONLY QUESTION 
12 GMANIL T4WO,TEMP,D.WO, YES ;WRITE ONLY 
12 104443 TRAP _ C$GMAN 
14 000404 BR 10006$ 
16 002262 -WORD TEMP 
20 000130 -WORD TS$CODE 
22 002657 “WORD  T4WO 
24 002000 : . 
26 10006$: 
26 GMANIL T4WCA,TEMP,D.WCA, YES ZCHECK ALL WRITES 
526 104443 TRAP = C$ 
30 404 R 10007$ 
ae HO Titec 
.WOk co 
36 002672 <WORD  T4WCA 


2540 000004 «WORD D.WCA 





‘AACLAGE LENGE CRAG KSEE 
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03 328 10007$: 

$$ 032542 032737 000004 002262 BIT #D.WCA, TEMP 3 CHECK oe 
032550 001007 BNE 14004 BRANCH IF YES 

24 ba5235 GMANIL T4WCR,TEMP,D.WC,YES sRANDOMLY CHECK WRITES 
032552 104443 TRAP CSGMAN 
032554 000404 BR 10010$ 
032556 002262 «WORD TEMP 
032560 000130 «WORD TSCODE 
032562 002726 «WORD T4WCR 
032564 000010 é «WORD 0.WC 
032566 ois 10010$: 


25 032566 000403 BR 14005 





ae ee 
- 
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CZUDCBO UDA 
TEST 4: DISK EXERCISER 
1 032570 052737 000010 002262 14004: BIS #D.WC,TEMP BOTH BITS GET SET 
¢ b35278 01 68 002262 000004 14005: MOV TEMP,D.PRM(R3) zPUT PARAM BITS BACK 
032604 016337 00006 002262 MOV D.PAT(R3), TEMP 
& 035618 GMANID T4DP,TEMP,D,-1,0,16., YES ;DATA PATTERN 
032612 104443 TRAP CS$GMAN 
032614 0004 BR 10011$ 
032616 00226 -WORD TEMP 
032620 00005 -WORD TSCODE 
032622 002767 WORD T4DP 
032624 177777 -WORD = 
032626 000000 «WORD TSLOLIM 
0326 000020 -WORD TSHILIM 
03263 10011$: 
5 032632 013763 002262 000006 MOV TEMP,D.PAT(R3) 
6 032640 016337 000004 002262 MOV D.PRM(R3) , TEMP 3GET PARAM BITS AGAIN 
? 032646 032737 004000 002262 14006: BIT #D.RO,TEMP sBYPASS NEXT 3 IF ONLY WRITING 
8 032654 001010 BNE 14007 
9 032656 032737 002000 002262 BIT #D.WO, TEMP 
10 032664 001404 BEQ 14007 
11 032666 032737 000010 002262 BIT #D.WC, TEMP 
12 032674 001432 BEQ 14009 
13 032676 T4Q07: GMANIL TGECC,TEMP,D.ECC,YES sENABLE ECC 
032676 104443 TRAP c$ 
00 000404 BR 10012$ 
032702 002262 -WORD TEMP 
04 130 WORD TSCODE 
06 003035 «WORD T4ECC 
032710 010000 -WORD 0D.ECC 
032712 10012$: 
14 032712 GMANIL T4DCA, TEMP,D.DCA, YES «COMPARE ALL DATA 
032712 104443 TRAP c$ 
032714 000404 BR 10013$ 
032716 002262 -WORD TEMP 
032720 000130 «WORD TSCODE 
032722 003070 WORD  T4DCA 
032724 (001 -WORD 0.DCA 
032726 * 100138: 
15 032726 032737 000001 002262 BIT #D.DCA, TEMP zCHECK ANSWER 
16 032734 001007 BNE T4Q sBRANCH IF YES 
17 032736 GMANIL T4DCR,TEMP,D.DC,YES zRANDOMLY CHECK WRITES 
032736 10444 TRAP $ 
032740 000404 BR 10014$ 
032742 002262 -WOR 
032744 00013 -WORD TSCODE 
032746 003116 -WORD T4DCR 
032750 00000 -WOR D.D 
2 100148: 


03275 
18 032752 000403 BR 14009 





1 032754 


34 
33042 


oooooo 
WWW 
Ww 
So 
Ww 
Nos 


33074 


SO ODONAUSWN OC OONO 


ooooocoo 
WWW 
Ww 
= 
o 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
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052737 
104443 
002262 
000130 
003151 
001000 
005137 
104443 
000404 
002262 
000130 
003170 
000100 


005137 
013763 


0 
001402 
005337 





000002 002262 14008: 
T4009: 


002262 


002262 
002262 


002262 
000040 


002262 
000400 
000004 
000112 
002262 
000020 
002262 
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000004 


000004 


000004 
002262 


000004 





:BOTH BITS GET SET 


C, TEMP 
TGRET, TEMP,D.RET, YES sENABLE RETRIES 


COM TEMP 
GMANIL T4SEK,TEMP,D.SEQ, YES 


COM TEMP 

MOV TEMP,D.PRM(R3) 

CLR TEMP 

ae #0.BE,.D.PRM(R3) 
Q 14010" 


BR T4011 
BIT #D.CYL,D.PRM(R3) 
BEQ 14011 


E TEMP 
BIT #D.TR,D.PRM(R3) 
T4011 





CSGMAN 
10015$ 
TEMP 
TSCODE 
T4RET 
D.RET 


CS$GMAN 
10016$ 
TEMP 
TSCODE 
T4SEK 
D.SEQ 






CZUDCBO UDA & DISK DRV 
TEST 4: DISK EXERCISER 


—> 
ENURRRNVSSEVOSHORRVOO 


UNSW 

Sooooooo 

WWWWAWWW 
VMN SRE 


3162 000467 


F 7 
DIAS MACRO V04.00 29-APR=82 17:36:04 PAGE 281 


022266 


002262 
000440 000004 


T4Q11: PNTF T4OPT1 


GMANID T40PT7,TEMP,D,-1,0,4,VES ;WHICH SELECTION LIMITS 


C TEMP 
BGE T4012 
BIC _#D.BE+D.CYL,D.PRM(R3) 
BR 14019 


10017$: 
SET UP D.PRM FROM ANSWE 


:IF 0 = CLEAR D.BE AND 


SEQ 0291 


JSR_R1,LPNTF 


-WORD T40PT1 
«WORD PNT.CT 
TRAP CSGMAN 
BR 10017$ 
«WORD TEMP 
«WORD TSCODE 
WORD T40PT7 
«WORD -=1 
«WORD TSLOLIM 
WORD TSHILIM 


WER 
D.CYL 
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“SOONG VUESWN—OODNOUSWwh— 


PNM —= = ee 
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002262 
000040 


000040 
000400 


000040 
000002 


000400 
000112 


002262 


009020 
000004 


000112 
000001 


000114 
000020 





000004 
000004 
000004 
000004 


002262 
000004 


000004 


000004 


000112 


T4012: 


T4013: 


T4014: 


T4015: 


T4016: 
T4017: 


T4018: 


DEC TEMP 

BGE 14013 

BIT #D.BE.D.PRM(R3) 

BNE 14019- 

BIS #D.BE,D.PRM(R3) 

BIC_#D.CYL,D.PRM(R3) 
BR 14Q1 


BIC #D.BE,D.PRM(R3) 
CMP #2. TEMP 
BNE T 
BIS by tv. D.PRM(R3) 
CLR D.BEC(R3) 
BR 14019 
PUSH D.PRM(R3) 
BIS #D.CYL+D.TR,D.PRM(R3) 
TEMP 
14015 
BIC #D.TR,D.PRM(R3) 
CHP (SP) +,D.PRM(RS) 
TST D.BEC(R3) 
MOV #1,D.BEC(R3) 
ADD #D.BGN1,R4 
MOV #16., 
CLR (R4)+ 


DEC R1 
BNE 14018 


:1F 1 
IF 0.BE NOT SET 
SET D.BE 


1_ IN D.BEC 
CLEAR BLOCK STORAGE 


MOV D.PRM(R3),-(SP) 
SEY D.C. iy 4 


we D.T 
D.CYL oR D.TR CHANGED OR D.BEC = 


IN 0.BEC 
CLEAR BLOCK STORAGE 
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Sooooooooo 
WWWWNAANWWw 
WWWIWWIANWNWW 
AROMAS 

wv 
MmMoOoNnror 


SSS 
o 


032763 
001460 
016337 
104443 
000406 
002262 
000052 
003216 
177777 
000001 
000004 
013763 


104443 
000406 
002262 
000152 
003263 
177777 
000000 


000577 
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000040 000004 14019: 


000112 002262 


002262 000112 
002262 


000114 
021402 


021504 
021402 


021504 


T4020: 


T4021: 





BIT #D.BE,D.PRM(R3) 
EQ 14022 


MOV D.BEC(R3), TEMP 
GMANID T4BE,TEMP,D,-1,1,4, YES 


; NUMBERS T 
NUMBER OF B/E SETS 


10020$: 


:GET COUNT OF SETS 
GET POINTER TO STORAGE 


MOV TEMP,D.BEC(R3) 
MOV TEMP,R1 

MOV R3,R4 

ADD #D.BGN1,R4 
CALL BLD28 

GMANID T4BEG,TEMP,A,-1,0,9.,YES ;BEGIN BLOCK 


10021$: 
CALL CNV28 
BCS T4020 
CALL BLD28 
GMANID T4END,TEMP,A,-1,0,9.,YES ;END BLOCK 


CALL CNV28 10022$: 
BCS 14021 
DEC R1 


BNE 14020 
BR 14030 


NOW ASK THE QUESTIONS TO ALLOW THE 
O CHANGE 


TSLOLIM 
TSHILIM 


CSGMAN 
10021$ 
TEMP 

TSCODE 
T4BEG 


TSLOLIM 
TSHILIM 


CS$GMAN 
10022$ 
TEMP 
TSCODE 
T4END 


TSLOLIM 
TSHILIM 


SEQ 0293 
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BO UDA & DI 
4: DISK EXERCISER 
1 033512 032763 000400 000004 14022: BIT #D.CYL,D.PRM(R3) zIF D.CYL CLEAR = ALL DONE 
2 033520 001573 BEQ 14030 
3 033522 005763 000112 TST D. Ose (ns) sIF D.BEC CLEAR = GO RIGHT TO B/E CYLS 
4 033526 001526 BEQ 14027 
5 033530 010304 MOV R3,R4 
6 033532 bos 708 000112 ADD #D.BEC,R4 
? 033536 032763 000020 000004 BIT #D.TR,D.PRM(R3) sLOOK AT D.TR.TO DETERMINE QUESTION 
8 033544 001434 BEQ T4024° 
9 033546 011437 002262 MOV (R4), TEMP 
10 O3eee5 GMANID T4TRC,TEMP,D,-1,1,7,YES ;NUMBER OF TRACKS 
033552 104443 TRAP CSGMAN 
033554 000406 BR 10023$ 
033556 002262 WORD TEMP 
033560 000052 «WORD TSCODE 
033562 003275 WORD T4TRC 
033564 177777 «WORD -1 
33566 000001 «WORD TSLOLIM 
033570 000007 -WORD TSHILIM 
033572 10023$: 
11 033572 013714 002262 MOV TEMP, (R4) 
12 033576 012401 OV (R4)+,R1 :GET COUNT OF TRACKS 
13 033600 011437 002262 T4023: MOV (R46), TEMP 
14 033604 GMANID T4TRAK,TEMP,D,-1,0,255..YES 3 TRACK 
033604 104443 TRAP c$ 
03 000406 BR 10024$ 
033610 002262 -WORD TEMP 
033612 000052 -WORD TSCODE 
033514 003326 -WORD T4TRAK 
033616 177777 -WORD =1 
033620 000000 «WORD TSLOLIM 
033622 «WORD TSHILIM 
033624 10024$: 
15 033624 013724 002262 MOV TEMP, (R4)+ 
16 033630 005301 R1 
17 033632 001362 oe T4023 
18 033634 00043 R 14026 
19 033636 011437 002262 T4024: MOV (R4), TEMP 
20 033642 GMANID T4GRC,TEMP,D.-1,1,7.YES ;NUMBER OF GROUPS 
033642 104443 TRAP cs 
033644 BR 10025$ 
033646 002262 «WORD TEMP 
033650 000052 WORD TSCODE 
033652 003334 «WORD T4GRC 
033654 177777 «WORD -1 
033656 000001 -WORD TSLOLIM 
33660 000007 -WORD TSHILIM 
33662 10025$: 
21 033662 013714 002262 MOV TEMP, (R4) 
33666 012401 MOV (R4)+,R1 3GET COUNT OF GROUPS 


SEQ 0294 
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So ttt ttt thet tet 
FREESE 
RLLSS 
Qa — 
oon 


50 
23 034050 
24 034054 


011437 


ASVRR 


100000 


000000 
000011 
004737 
103763 
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002262 


002262 


00016 
00226 


60 
177777 
000162 
000162 


000154 
021402 


021504 


T4025: 


002262 14026: 


000162 
T4027: 


MOV (R4), TEMP 


GMANID T4GRP,TEMP,D,-1,0,255.,YES 


MOV TEMP, (R4)+ 
DEC R1 


BNE 14025 
con D.ECYL+2(R3), TEMP 
GMANIL T4CYL,TEMP,BIT15, YES 


TST TEMP 

BMI 14027 

CLR D.BCYL(R3) 

CLR D.BCYL+2(R3) 

CLR D.ECYL(R3) 

MOV #-1,D.ECYL+*2(R3) 

BR 1403 

TST D.ECYL+2(R3) 

BGE 14027A 

CLR D.ECYL+2(R3) 
R3,R4 


T4Q27A: MOV 


T4028: 


ADD #D.BCYL,R4 
CALL BLD28 


GMANID T4CYLB, TEMP ,A,-1 0,9. YES 


CALL _CNV28 
BCS 14028 


: GROUP 


10026$: — 


WISH TO LIMIT CYLINDERS 


10027$: © 


3 STARTING vineanteg 


10030$: 


SEQ 0295 


TSLOLIM 
TSHILIM 


CSGMAN 
10030$ 
TEMP 
TSCODE 
T4CYLB 


TSLOLIM 
TSHILIM 









CZUDCBO UD 
TEST 4: D 
10 
20 
0 
0 
0 
0 


PRESSE 
SERRE 


~“ 


070 
034072 
034074 
034076 


NO Mw 
CSoooooooocKoo 
RELEASES AE 
he ee ek a ed ed ed ed od ed 
SRAARNOORNULS 


Oo 


AGD 
ISK EX 


004737 
104443 


000000 
000011 
004737 
103763 

2604 


01 
012602 
000207 


104401 


021402 


021504 


T4029: 


T4030: 
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CALL BLD28 
GMANID T4CYLE,TEMP,A,-1,0,9.,YES 


CALL_CNV28 
BCS 14029 
POP <R4,R2> 


RETURN 
ENDTST 


ENDMOD 





ENDING CYLINDER 
TRAP 


10031$: 


L10061: 


c$ 

10031$ 
«WORD TEMP 
«WORD TSCODE 


-{ 
WORD TSLOLIM 
«WORD TSHILIM 


MOV (SP)+,R4 
MOV (SP)+,R2 


TRAP CSETST 


SEQ 0296 













1 
034120 


EWN OC OONAUS wr 


SS 


FWN OC OONOMN 


000032 


020000 


-SBTTL HARDWARE PARAMETER CODING SECTION 


BGNMOD 


3++ 


MACRO 
WITH THE OPERATO 


BGNHRD 


FORMAT OF HARDWARE P-TABLE IS AS FOLLOWS: 


TABLE 


ITEM HO.UBA 
ITEM HO.VEC 
ITEM HO.BRL 
ITEM HO.BST 
ITEM HO.LDR 
ITEM HO.PRM 
HM. CYL 
END 





ff MIMoPoKPoNoT 
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HARDWARE PARAMETER CODING SECTION 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
: ae on USED BY THE SUPERVISOR TO BUILD 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
S ALLOW THE Yc ateaantcos TO ESTABLISH COMMUNICATIONS 


P=-TABLES. THE 


«WORD L10062-LSHARD/2 


LSHARD:: 


sSTART A TEBLE DEFINITION 


UNIBUS ADDRESS 
UDA VECTOR 


NUMBER 
PROGRAM PARAMETERS 
TEST CUSTOMER DATA AREA 





1 03412 


1 
1 
1 
1 
1 
1 
1 
1 


WDNUEWN—oO 


0 
000774 
002052 


034313 
020000 


& 


ae ae oie aie ae of 
. se . - & 3 
ao-rowo< 
“nonwm 
+D4-—-oO>p> 
@e @8 @e 68 @e ee 


GPRMA 


GPRMA 


GPRMD 


GPRMD 


GPRMD 
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H.UBA,HO.UBA,0,160000,177774, YES 
H.VEC,HO.VEC,0,4,774,VES 


: VECTOR 


H.BRL,HO.BRL,D,-1,4.,7.,YES : BR LEVEL 


H.BST,HO.BST,D,-1,0.,63.,VES 


: BURST RATE 


- WOR 
H.LDR,HO.LDR,D,-1,0.,255.,VES ; DRIVE SELECT oat > 


H.CST,HO.PRM,HM.CYL,YES ; USE CUSTOMER DATA AREA 


L10062: 
\UNIBUS ADDRESS OF UDA\ 
\VECTOR\ 
\BR LEVEL\ 
ae BURST RATE\ 
\EXERCISE ON CUSTOMER DATA AREA IN TEST 4\ 





TSCODE 


H.UBA 
TSLOLIM 
TSHILIM 


TSHILIM 


TSCODE 
H.BRL 


TSLOLIM 
TSHILIM 


TSCODE 
ST 


TSLOLIM 
TSHILIM 


TSCODE 
R 


TSLOLIM 
TSHILIM 


TSCODE 
H.CST 
HM.CYL 


SEQ 0298 
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} -SBTTL SOFTWARE PARAMETER CODING SECTION 

3 ++ 

4 3 THE SOFTWARE yl CODING SECTION yer MACROS 

5 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P 

6 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT A 

7 $ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 

8 M CROS ALLOW THE D cechecorenicets TO ESTABLISH COMMUNI CATIONS 

4 ; WITH THE OPERATO 
i 
12 034364 BGNSFT 

034364 000030 -WORD L10063-L$SOFT/2 

13 034366 LSSOFT:: 
i ;FORMAT OF SOFTWARE P=TABLE IS AS FOLLOWS: 
ig 034366 TABLE ZSTART A TABLE DEFINITION 
18 034366 ITEM SO.EL 2 sERROR LIMIT 
19 034366 ITEM SO.XL 2 SDATA Fant te LIMIT (MEGABITS) 
20 034366 ITEM SO.BIT 2 SINGLE BIT ANSWERS 
21 000200 SM.MAN==B1T07 MANUAL INTERVENTION MODE 


001000 SM.LOG==B1T09 ERROR LOG ENABLED 
24 040000 SM. IW== BIT14 INITIAL WRITE 


22 000400 SM. SSF==B1T08 ¢ SUPPRESS SOFT ERRORS 
28 : 
29 034366 END 





a me ee + ee ee 
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1 034366 GPRML S.MAN,SO.BIT,SM.MAN,YES | ;MANUAL INTERVENTION MODE 
034366 002130 WORD TSCODE 
034370 034446 “WORD §.MAN 
034372 000200 “WORD  SM.MAN 
4 034374 DISPLAY S.MES :MESSAGE ON NEXT QUESTIONS 
034374 000003 .WORD  TSCODE 
034376 03453 A “WORD S.MES 
6 034400 GPRMD S.EL,SO.EL,D,=1,1.,-1., YES ZERROR LIMIT 
034400 000052 WORD  TSCODE 
034402 034616 “WORD SEL 
034404 177777 “WORD = 
034406 000001 “WORD TSLOLIM 
034410 177777 “WORD TSHILIM 
7 034412 GPRMD $.XL,SO.XL,D,-1,0.,-1.,YES ; TRANSFER LIMIT 
034412 001052 WORD TSCODE 
034414 034632 “WORD S.XL 
034416 177777 “WORD = 
034420 000000 “WORD TSLOLIM 
034402 177777 “WORD TSHILIM 
8 034424 GPRML $.SSF,SO.BIT,SM.SSF,YES | ;SUPPRESS SOFT ERRORS 
034424 002130 .WORD TSCODE 
034426 034714 “WORD $. SSF 
034430 00 “WORD SM. SSF 
9 034432 GPRML S.1W,SO.BIT,SM.IW,YES | ;INITIAL WRITE 
034432 002130 .WORD  TSCODE 
034752 “WORDS. IW 
034436 0 “WORD SM. I 
10 034440 GPRML $.LOG,SO.BIT,SM.LOG,YES  ;ERROR LOG 
034440 002130 WORD TSCODE 
034442 035004 “WORD S.L 
034444 001000 “WORD  SM.LOG 
15 034446 ENDSFT 
«EVEN 
16 030446 L10063: 
17 03444 105 136124. S.MAN: .ASCIZ\ENTER MANUAL INTERVENTION MODE FOR SPECIAL DIAGNOSIS\ 
20 03453 122 105 «115 ~S:MES: <ASCIZ\REMAINING SOFTWARE QUESTIONS APPLY TO TEST 4 ONLY\ 
22 034615 000 “BYTE 0 
23 034616 «©6105 «= 122,—S's«*122-s«S.EL: ~~ SASCIZ\ERROR LIMIT\ 
24 034652 = 128105101 S-XL: CASCIZ\READ TRANSFER LIMIT. IN MEGABYTES ~ 0 FOR NO LIMIT\ 
25 034714 = 12 125 120 -$.SSF: ‘ASCIZ\SUPPRESS PRINTING SOFT ERRORS\ 
26 034752, = 10_~=Ss«117 = 040 S22W:  SASCIZ\DO INITIAL WRITE ON START\ 
gf 035004 = 105116101 SLOG: | ASCIZ\ENABLE ERROR LOG\ 
33 
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PATCH AREA 


1 
: 035026 


9 
10 035152 


000050 


035172 
000010 


SPATCH:: 


LSLAST:: 


-SBTTL PATCH AREA 


eREPT 40. 
RD 0 


LASTAD 


ENDMOD 


«EVEN 
«WORD TSFREE 
-WORD TSSIZE 


SEQ 0301 






PATCH AR 


1 035152 BGNSE TUP 1 
03515 BGNPTAB 
035152 000000 
035154 000006 

‘ 035156 

5 035156 172150 -WORD 172150 

6 035160 000154 WORD 154 

7? 035162 000005 -WORD 5, 

8 035164 000077 «WORD 63. 

9 035166 000000 WORD 0. 

19 035170 000000 «WORD 0 
12 035172 ENDPTAB 
13 035172 

i 035172 ENDSETUP 
16 

17 

18 

19 

20 

21 

22 ~ END 


000001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY i 74 = ( 117 PAGES) 
DYNAMIC MEMORY 


VAILABLE 
2UDCB0.BIC,A: 2upceo/c= 50, OusvesaRe MLB/P:1,ZUDCB0.DOC , ZUDCB0.MAC 
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L10064: 


UNIBUS ADDRESS 
ite ADDRESS 


EVEL 
UNIBUS BURS 


T RATE 


LOGICAL DRIVE NUMBER 
CUSTOMER DATA AREA 


L10066: 


«WORD 
- WORD 


SEQ 0302 


0 
L10066-./2=1 


SEQ 0303 


E 
$-1 


5 
5 


1-187 112-43 135-22 259-16 
1=266 112-44 135-25 


v04.00 ) 
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BOE 116-104 
BRLEV 264-16 266-3 270-254 
CSAU__ 112-12 


12-124 
CSAUTO nel 258-1 





“12% 149-4 216-26 3=225*13 = 228-27 «= 233-24 3=— 239-10) 264-35 = 270-11 = 276-40 


CSBSEG 112-124 

CSBSUB 112-124 261-1 262-1 263-1 264-1 267-1 268-1 269-1 

CSCEFG 112-124 

CSCLCK 112-124 249-12 249-14 

CSCLEA 112-124 259-21 

CSCLOS 112-124 232-12 

CSCLP1 112-124 261-11 

CSCVEC 112-124 225-27 261-7 266-10 

eke 11$-1$ 143-8 147-22 237-7 248-30 256-9 257-4 257-9 257-15 257-21 

CSDRPT 112-124 150-10 247-11 276-43 

C$SDU =: 112-124 

CSEDIT 112-124 112-42 

CSERDF 112-124 149-22 149-40 151-21 152-11 195-24 212-3 216-34 217-5 223-18 223-40 225-30 227-44 228-36 
229-5 261-10 263-26 265-27 266-5 270-19 

CSERHR 112-124 

CSERRO 112-124 207-41 

CSERSF 112-124 143-7 147-21 237-6 248-29 257-3 257-8 257-14 257-20 

CSERSO 112-128 

CSESCA 112-124 

CSESEG 112-124 

CSESUB 112-124 261-14 262-15 263-32 266-11 267-4 268-6 269-10 

CSETST 112-124 269-14 271-24 272-14 286-7 

CSEXIT 112-124 256-31 260-18 276-44 

teed A et 233-26 8233-31 39 234-7 235-23 235-30 236-1 236-11 236-14 

C 112-124 163-3 256-6 275-3 275-7 277-14 278-2 278-8 278-14 278-20 278-21 278-24 279-4 279-13 
thee ly 279-17 = =—280-2 280-4 281-2 283-4 283-10 9283-14 284-10 284-14 284-20 285-2 285-8 285-22 

CSGPHR 112-12# 248-21 250-10 253-5 

C$GPLO 112-124 

C$GPRI 112-124 

CSINIT 112-124 257-23 

CSINLP 112-124 

CSMANI 112-124 160-32 256-4 274-7 

CSMEM 112-124 249-2 

CSMSG 112-124 140-16 140-20 140-24 140-28 140-32 140-36 140-40 140-44 140-48 140-57 140-63 140-77 140-81 
Hs a 33 140-89 140-93 140-97 140-101 140-105 140-109 140-114 140-118 140-122 140-127 140-131 140-135 140-139 | 

CSOPEN 112-124 233-21 

CSPNTB 112-124 205-14 

CSPNTF 112-124 205-12 255-36 

CSPNTS 112-124 205-18 243-22 243-24 

CSPNTX 112-124 140-62 205-16 

C$QIO 112-124 

C$R 112-124 

CSREFG 112-124 247-1 247-5 247-8 247-12 256-20 256-22 

CSRESE 112-124 112-124 239-11 249-1 

CSREVI 112-124 112-42 

CSRFLA 112-124 173-49 175-38 177-44 
112-124 2 
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D.HERR 129°14# 177-41% 177-42 243-24 


D.IW 128-144 128-33 167-19 

D.PAT 128- 167-21 274-2 279-3 279-5* 

Dd. 128-134 167-13 167-3 255-34 276-9 278-13 279-2 $25-$ 280-6* 280-9 280-13 280-19 281-5* 282-3 
282-5* 282-6 282-8  282-12* 282-15 282-16 282-19* 282-20 283-1 284-1 284-7 

D.RET 128-194 128-31 250-2 

D.RO 128-174 278-14 278-15 279-7 

D.SEEK 129-164 172-15* 243-22 

D.SEQ 128-214 280-4 

D.SERN 129-184 167-5*  167-6* 167-7* 243-9 243-10 = 243-11 

D.SERR 129-154 171-20* 243-24 

D.SIZE 129-244 174-28 254-3 254-29 254-33" 

D.TR 128-234 280-19 282-16 282-19 284-7 

D.UNIT 128-10# 161-1 173-22 «6173-54 = 174-23 «178-8 179-23 9179-25 195-29 207-22 «= 242-25 9 243-22 «= 248-11" 248-35 
255-36 274-19 39 277-12 

D.WC 128-248 128-31 278-24 279-1 279-11 

D.WCA 128-254 278-21 278-22 

D.WO 128-184 278-17 278-20 279-9 

D.XFRR 129-13 173-43" 175-47 243-22 

D.XFRW 129-128 173-44 174-27 174-28 243-22 

D.ZERO 128-3354 167-14 

DDEF 128-314 254-28 276-11 

DFPTBL 114-104 

DIAG 120-334 213-23 

DIAGMC 112-12 112-12 


DIVIDE 197-39 198-7 199-164 200-13 240-19 240-21 240-23 
DLL 134-26# 158-37* 159-92 159-10" 174-35  256-18* 

DLLADR 134-314 159-4% 159-5* 159-13 159-14 

DLLOR 134-284 158-38" 174-37 174-38 

ay it oat 158-41* 158-42" 174-38 234-13 234-15 

aie 134-324 159-6 159-11 159-12" 159-13« 


132-214 146-20 147-17« 
DMMAIN 129-30# 210-5 210-7 210-30 
DMPROG Ha 3'x4 141-15 141-16) -147=14% 179-30 179-31 186-7 186-8 209-5 209-8 209-10 209-11 210-4 210-6 


DT.AVL 128-124 173-24 174-25 242-28 248-11 248-35 274-19 
6-264 152-5 


3 213-20 
12-124 112-42 
23 
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EF .BBU 123-284 
EF.CON 116-104 247-1 







47-5 = 256-22 


6-104 247-12 256-20 
1=22 1-27 1-101 112-41 «115-16 = 133-1 135-19 149-28 208-15 209-12 216-21 259-12 259-16 


290-12 290-29 
2-25 113-9 137-43 9137-48 = 147-1 175-64 184-15 184-20 209-1 209-22 260-5 272-16 


ERRO31 140-1074 149-40 


ERROSS 140-1164 151-21 
ERRO34 140-120# 212-3 
ERROSS 140-1244 195-24 
ERRO36 140-1294 216-34 
ERROS7 140-1334 217-5 
ERRO3S8 140-1374 261-10 
ERR23A 140-684 140-75 
RR238 140-69 140-734 
ERR23C 140-72 140-764 
RBLK 132-84 
ERRC 181-35 181-42 185-94 ‘ 
ERRCHR 132-114 205-5* 205-12 205-14 205-16 205-18 
ERRD 181-44 185-214 
ERRLIM 137-10# 178-8 
ERRMC 153-15 177-298 
ERRME1 137-84 181-40 183-23 
ERRMES 153-14 175-25# 177-30 
ERRMSG 132-84 
ERRMSL 175-69 176-14 
ERRMSX 175-61 175-71 176-18 176-20# 
ERRNBR 132-84 
ERRNL_ 137-44 205-10 
ERRONE 137-34  205- 
ERRRSZ 183-18 184-124 


SEQ 0309 


140-34 140-38 
112-12 
140-32 
140-105 140-109 140- 
240-38 


240-38 


140-30 
" 140-103 140-107 140-111 


K 
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0-85 


140-135 140-139 141-22 
260-3 


0-81 
259-23 


259-21 


CROSS REFERENCE TABLE (CREF V04.00 ) 


ERRRTB 183-21 


> 4 
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= 
oO 
< 
-_ 
a 
=> 
ax 
i=) 
4 
” 
mt 
Q 
oo 
< 
s 
r 
wv 
S 
~ 
a 


ERRTYP 132-84 
FSCLEA 112-124 259-8 
FSEND 112-12 


ERRRTN 141-14 
FSAUTO 112-124 


140-38 
140-83 
140-111 | 
141-1 


105 140-107 140-109 


140-133 140-135 140-1357 140-139 


140-103 140- 


140-101 
140-131 


260-3 
140-26 
140-59 
140-99 
140-129 


259-23 
140-24 
140-57 
140-97 
140-127 


276-44 
241-3 
140-22 
140-50 
140-95 
140-124 


260-18 
240-38 
140-20 
140-48 
140-93 


140-91 
116 140-118 140-120 140-122 


140-114 140- 
FSPROT 112-124 245-8 


140-40 
140-85 
FSPWR 112-124 








269-1 
256-15 


268-6 
249-3« 


222-38 


176-7 


245-14 
244-43 


2 
6 
6 
4 
3 


4 

4 

4 
1 


210-15 
23 


FILOPN 133-94  232- 


1 
1 


112-124 115-10 


269-10 
FSTEST 112-124 
FDATA 133-84 

176-3 

132-154 1 


FSRPT 112-124 241-10 
269-3 


FSSEG_ 112-124 
FSSOFT 112-124 289-12 


FSSRV 112-124 219-10 


FSSUB 112-124 


235-1 


=4 
196-284 
183-17 


169-23 


140-143 
120-23 
222-37 
214-18 


235-3 


277-14 
283-4 
288-5 
183-29 


170-16 


236-114 


277-14 
288-4 
278-20 


283-14 


196-134 


171-18 


152-7* 
176-10 


209-8* 


277-14 
8 


2 
278-21 
285-22 
283-4 
278-21 


278-8 
283-14 
290-1 
197-15 


172-13 


152-8 
176-14 


209-9« 


151-9 
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78-36 
286-2 

284-10 
278-24 


278-14 


173-20 


152-35 
210-10 


209-10* 


151-14 


279-13 


284-14 
279-13 


278-20 
284-14 
290-7 


177-36 


210-16 


209-118 


151-19 


278-14 
2 


284-20 
279-14 


278-21 
284-20 
290-8 


179-21 


215-19 


211-18 


209-17 


278-21 
2 


283-14 
280-2 


290-10 


207-20 


273-20 


211-208 


278-24 
285-2 
290-9 
278-24 
290-9 


284-10 
280-4 


288-4 
280-4 


279-13 
285-22 


248-32 


211-218 


SEQ 0310 


279-13 
285-22 


279-13 
285-22 
284-20 
288-7 


290-6 
288-7 


279-17 
288-1 


214-178 
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CROSS REFERENCE TABLE (CR 


Hs a4 


ies) 


149-1336 140 140-1 9 


oF 
TSTEST 112-124 
TSTSTM NS a ad 


2 
rersts A aad 


TINOW -13 
TISKIP 260-154 
T 113-9 
T2CMD 153-5 


27 
160-294 


2 St had 
78-2 


269-12 


140-854 140-89 
140-1144 i7e-1'6 
bef 163-3 
238-1 40-38 
256-64 56-31 
261-144 262-15 
269-148 271-24 
275-74 = 275-78 
78-24 278-28 
278-144 278-20 
8-24 278-24 
79-138 279-138 
279-174 280-2 
1-2 281-2 
283-104 283-104 
284-108 284-14 
5-2 285-2 
85-224 285-224 
288-1 288-1 
288-34 288-34 
288-54 288-7 
290-14 290-6 
290- 290-8 
290-104 290-104 
261-1 262-1 
273-3 273-34 
140-28 140-32 
140-97 140-101 
147-21 147-22 
205-12 205-14 
225-27 225-30 
236-1 236-11 
247-12 = 248-21 
256- 256-17 
258-12 259-21 
264- 264-19 
268- 269-1 
277-14 = =—278-2 
283-4 283-10 
273-34 


283-14 


284-10 


284-14 


284-20 


140-978 140-101 
140-1278 140-131 
163-38 219-14 
244 45-14 
58-128 259-21 
66-118 267-4 
75-3 275-3 
77-14 377-14 
78-88  278- 
78-208 278-21 
279-4 2794 
279-148 279-148 
280-28  280~4 
283-4 283-4 
283-148 283-148 
284-148 284-20 
285-8 285-8 
286-28 286-28 
288-2 288- 
288-48 288-48 
288-74 288-9 
290-6# 290-7 
290-9 290-9 
291-108 
269-1 271-3 
140-57 140-62 
140-122 140-127 
151-21 152-11 
212-3 216-26 
232-12 233-21 
239-11 243-22 
249-12 249-14 
257-4 257-8 
261-10 261-11 
265-27 266-1 
271-26 272-14 
278-24 279-4 
285-2 285-8 





279-13 
285-22 
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T2CMDO 160-33 160- 

T fa | 160-38 162-14 
T2CMDS 163-9 164- 
T2CMD9 160-348 


63-16 164-7 164-10 


1 
T2CMDM 160-30 160-324 
T2CMDN 164-17 164-198 
T2CMDQ a 163-34 164-33 
T2CMDR 164- 164-144 
T2CMDV 163-7 163-154 
ieee 164-20 164-24 164-264 
T2CMDX 160-31 160-35 163-17 
T2CMS1 137-274 161-1 
T2CMSS 137-364 164-32 
T2DLL tS 158-374 


34-158 161-4 163-13* 


T2GNE 204-23 204-27 6-3" 
T2GNX 204-14 204-39 204-424 
T2NEX O* 

T2PNT 203-6 203-8 203-154 
T2PNTB 


T2PNTW 162-5 162-7 203-34 


T2WRO 134-144 161-3* 162-6 
7 134-134 181-35 162-4 


T4CON 273-24 2735-27 273-298 


T4DEFC 276-134 276-15 


T4DEFE 276-8 276-184 
T4DEFW 274-8 275-154 
T4DMN 27 


136-104 


1 
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164-12 164-27 164-324 204-47 


164-304 


163-14 


204-454 
164-19 164-23 164-26 204-12# 204-18 


164-15 164-29 
164-14 164-28* 
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T4DPC 136-274 set 


T4MPRM =6 

TGMXFR 153-12 173-184 

T4OPT1 137-174 281-1 

T4OPT7 136-164 163-3 281-2 


TGPRMS 274-20 274-23 274-258 
T4PRMG 8 

278-6 
T4Q04 

T4005 278-18 278-25 279-24 
T4006 


14007 379-8 279-10 279-138 
14009 579-12 579-18 280-24 


T4Q10 280-10 280-134 
T4Q11 280-12 280-14 280-17 280-20 281-14 
T4012 28 282-14 


T4016 282- 282-21 282-248 

T4017 282-25# 

T4018 282-284 282-30 

T4019 281-6 282-14 282-23 283-14 
T4020 283-98 283-12 283-18 


285-218 285-24 
T4Q 286-14 “4 
T4030 278-11 283-19 284-2 285-15 286-54 


36-64 
T4RUN 274-4 275-11 276-244 


28 
T4SOFT 153-10 171-164 
T4STRT 273-10 273-12 273-30 274-34 





ee 
we oa Smee a w 
5 PETE PSPRRG TS TAA 
oe i @ cucucucucucunry eo co 
4 NNN COC FE KE eK EKO OOK KUN 
co te 
[eee RRR ee ee Oe RE 
eo mucucucucuceucucy eoco 
NQNNNNN EF RK RK KK RK KOKO KK UN 
* @¢ & %& * 
tetas wee at MMONNK BOmnos. ~m 
Sod #00806 6 8 adane a 
~o@ Seorurererermun cn Oo 
nner wcucucucucucucucucucucumi@o Mm 
QNNNNNN SE RK KK eC RK KOKO eK KK TU ™N 
# & & Re 
Ne-DO omonmrane ovave « 
Rewer OK mm rin 2 ee ee ee oOo @w | 
‘4 6ee08e8e 8 4 badannd i 3 
ner BOCUCU CUCU CUCUCUCUCUCUCUCN OOOO ~~ & | 
NNNNINN GS ERK KKK KKK OK KUNST NN ON 
& 3 
vote teSSnyS- seers om x | 
Testis 
WER waco rucucucucuCUCUCUCUCUCUCUCN oOo wn 
NNNNNN © OO OOK KP OK OKO OK KUN Nn ™ 
| * @« ae Be RR & 
i MM &-TF £F OMRVNOKRK- ORB w~OmMo z-« & 
| X SCH RRC RCRA OH 
| re coop co cucucucucuCuCUuCUCUCUCUCUNI Oe Tr éN 
i NNUNNNN SE CK Kw KK KK KOK KN NN UN 
a : & 
j * . 2 OronhKnos-wso Moma * 
DOAOWO— OK NMGFEMTTATOeC KV vr 
| SOO obdbodaadddd ‘ 
wo MA BR. 0000000000 no N = 
We wooo cucucuCuCUCUCUCUCUCUCUCUCNO oO Tr é 
NNNNNN Re RR KR RK RK RM RK RK KK N ™ 
| on 
i =~ b 3 ae & wu 
6 N SC ERS oa grene mM Oo w 
_ eee ARR Rh eee oe oe RT 7. 2 - 
Oo we waco cucucucucucucuCuCUuCUCUCUNNo oe Tr Oo 
! = NNNNNN © CK KK KK KOK KKK KN NN ON 
| » . a 
3 STITT eee CU PUT 
| ee wh woaococucucucucuCuCUCUCUCUCUSUNN eo o oOo Kf 
~ NNNANN SG OOO OO COC COOK KUN NN UN 
— 
~N Re Re er = os ® 
[ee ™N aoe omer Bone Anus “nw oO WwW N 
‘ ™N NIN ST ee TTT TIT see Co - = N 
: of doh ue Looe ‘eee ee es 5 a t ‘ 
cork MARK. BBR. BR. CGD GD COCOA AAARKR. AO wn S&S S&S w 
3 OR. BR. WWD DOU AICUNUNININICUNISUICU DOR. ~ own N 
o - NNNNNN GS SPO O OC COO OK KK CUNT - NN &- ™N 
~ 
ke 3 Be = 
me Own £¢€ €&—VK- OCOBQnovse Bwurwo ww # es a _ 
S TY PePRPET IIIT e oF SF a 
_ 
~ or ER WACO CUCUCUICUCUCUCUCUCUCUNUSUNU DOR. Tr oO wv ™N NO 
~2 mw NAUNNNN SOO COCO OPO OOK KUTT - N &- Nm fav a¥) 
oOo 
as * ss e we & 
> 4 m-.} Te KRONKNOONGA TOR nuene fo} Lo] f=} 3 wr 
zS PP OFTTPTTTIT Tiere TP ae 
ou or. OR- BR. COD DO CUCU CU CUCU CUCU CUCU CUCUCUCU DOOR. rv wy um NO 
<=¥ St PNA GS OPC M KOK OOK OK KUN rc Fe = om ravi at) 
— 
au 
ce a = Bee % Re * a * eR 
SB AACA tt wc RCO HACC AAC Go Oph a ecm Cpe CC wt ACSC CRC 
Mw DOOR RPR. ORR DOD DCU KUICINICUNINUNICICUINI MDDOT OWNS Or CUCUCUCUN Oo guCuCuCUN oo tucucueueuTN 
aw NN SH ONININININ EE NNN NN Oe MMMM MOO OO NNN EC RK RNR —CucuCUCUN CuCUCUCUN oo gCuCuCuCuCUCY 
Qw 
rw) , Se te 222 2 =  ## 
PE eae oh ORR eK OR we hee CoRR ELE ce eRe ee he ee 
ra NORM MES ER DO CUNNNNINNNNINNNIN DO Fr EMAM eR McucuCuCUCICICICQCQCQaQajnonan 
of FN NNN NN 6 MMMM MMO NN BM BM ON CUCU CUCU CUCUCuCUCUCUCUCuCuCUmCCUCY 
<~Zz =< en « “O00 We HK NM & xe Rm 
VeYv bo ee he Lo reeeeesssSssssssssssssssss 












UDAIRG 227-9 
UDAIRC § 7-15 


UDAR 

UDARSE 228-37 
UDARSP 223-24 
UDARSX 229-4 
UDASRV 220-184 
UF .576 124-124 
UF .CMR 124-34 


227-378 

227-24 227*32 

226-9 226-11 

225-1 : 

228-29 228-32 

229-38 

140-61 226-3* 
9-6" 

226-8 228-184 


229-114 
251-14 


148-16* 148-34* 


148-20 





216-114 


F 
CZUDCBO UDA & DISK DRV ener MACRO V04.00 29-APR-82 17:36:04 PAGE 5-28 


CROSS REFERENCE TABLE (CREF V04.00 ) 


227-424 
226-194 


228-36 . ae 
226-12 226-13 228-198 228-25 229-168 262-8 262-128 263-9% 264-268 


262-9 = 262-13 263-10 §3=— 264-27 


148-41 150-22* 273-29 
149-7 


270-244 


SEQ 0330 
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x30 tk 4 140-104 
x31 138-4 140-108 
¥ 4 138-454 140-112 
x3 138-464 140-125 
X36 138-474 140-130 
X37 138-494 140-134 
x38 138-154 140-1 
X3A 138-34 140-23 
BS 138-84 140-27 
x5 138-104 140-31 
x6 138-114 140-35 
x7 138-124 140-39 
x8 138-134 140-43 
x 138-44 140-43 
XFRU = 139= 140-62 140-76 192-5 
SG1 139-14 140-154 
XMSG2 139-24 140-158 
XPKT1 139-34 140-141 
XPKT2 139-64 140-147 
139-74 193-5 
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-BR 130-314 
AND 130-34 140-53 208-49 254-27 276-10 376-35 
ASSUME 130-394 141-9 148- 173-26 §=6174=25) — 2h42=14 «= 242-28) 3= 24323 250-19 §= 2550-20 260-14 49 263-7 264-7 264-18 
BCOMPL 160-33 247-13 249-73 249-15 256-21 
BGNAUT 258-10 
BGNCLN 259-8 
BGNHRD 287-14 
BGNHW 114-10 
BGNINI 246-8 
12-33 116-3 241-3 260-3 287-3 
SG 140-14 140-18 140-22 140-26 140-30 140-34 140-38 140-42 140-46 140-50 140-5 140-65 140-79 140-83 
of 140-91 140-95 140-99 140-103 140-107 140-111 140-116 140-120 140-124 140-129 140-133 140-137 141-1 
BGNPTA 292-3 
BGNRPT 241-10 
BGNSET 292-1 
BGNSFT 289-12 


BGNSRV 219-10 220-18 238-5 238-11 — 
BGNSUB 261-1 262-1 263-1 264-1 267-1 268-1 269-1 


GNSW 
BGNTST 260-6 271-3 272-3 273-3 
BNCOMP 247-2 247-6 247-9 248-22 250-11 253-6 256-5 256-23 274-8 
BR 149-43 £16736 225-13 9228-27 3=— 233-24 «= 239-10 39 264-35 = 270-11 = 276-40 
184-284 185-9 185-21 
CLOCK 249-12 249-14 


CLRVEC 225-27 261-7 266-10 


90-4 
DOCLN 143-8 147-22 237-7 248-30 256-9 += 257-4 «= 257-9 = 257-15 257-21 
DORPT 150-10 247-11 276-43 

117-298 127-46 129-24 287-27 289-29 


ENDMOD 115-21 240-38 259-23 286-9 291-10 
ENDMSG 140-16 140-20 140-24 140-28 140-32 140-36 140-40 140-44 140-48 140-57 140-63 140-77 140-81 140-85 
140-89 = 140-93 = 140-97 140-101 140-105 140-109 140-114 140-118 140-122 140-127 140-131 140-135 140-139 141-22 


ENDPTA 292-1 

ENDRPT 264-4 

ENDSET 292-14 

ENDSFT 290-15 

ENDSRV 219-14 220-21 238-9 238-13 

ENDSUB 261-14 262-15 263-32 266-11 267-4 268-6 © 269-10 

a ot RE 4h RR (Ce Es . wR 185-9 185-9 185-9  185-15# 185-21 185-21 185-21 185 
185-21 185-21 185-21 * 185-21 


185-21 
EQUALS 116-10 
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281-24 
285-24 
279-134 
290-9 


228-36 229-5 
284-20 285-2 
279-13 


281-2 
285-2 
290-8 
278-8 
286-2 
290-1 


283-104 283-14 
285-224 
288-74 


205-184 243-22 243-22 243-22 243-2 
255-36 255-36" : 


284-204 
279-138 279-14 


284-14 
285-8 
279-44 
278-244 
290-1 
278-24 


225-30 227-44 
284-10 

280-4 

279-4 

278-24 

288-7 

279-13 


284-144 284-20 
277-148 278-2 


223-40 
283-14 
280-2 
278-24 
278-218 
285-84 
279-44 
283-44 


223-18 
283-10 
279-17 
284-14 
290-7 

278-21 
285-8 


277-148 278-2 


217-5 
257-20 
236-14 
283-4 
279-14 
284-104 
290-6 
278-208 
280-44 
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216-34 
257-14 
236-11 
281-2 
279-13 
277-14 
284-10 
288-5 
278-20 
280-4 
288-4 
290-9 
205-16 


212-3 
257-8 
236-1 
279~4 
278-24 
275-74 
283-144 
288-4 
278-144 
280-24 
275-34 
205-144 


195-24 
270-19 
257-3 
235-30 
278-2 
278-21 
280-4 
284-20 
288-3 
290-8 
205-14 


256-64 275-3 
278-208 


256-314 260-18 
280-24 


112-424 


152-11 
266-5 
248-29 
284-148 
288-24 
290-74 
205-124 


151-21 
265-27 
112-42 
256-31 


140-624 205-12 


290-64 


149-40 
263-26 
112-42 
244-128 
163-34 


117-244 127-12 


261-10 
127-39 
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484 140-578 140-634 | 
122# 140-1278 140-1318 


1 
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140-404 
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140-1094 140-11 


140-284 140-324 
140-1014 140-1054 
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140-204 
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140-774 140-814 


MSENDE 114-184 115-194 
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255-36" 255-36# 255-36 255-36" 255-364 255-364 255-36" 256-4 256-44 256-5 256-54 256-6 256-6 256-6 
256-6 256-6 256-6 $20-$% 256-64 256-68 256-68 256-9 56-94% 256-17 256-17 256-174 256-178 256-20 
256-20 256-208 256-208 2$-¢! 256-214 256-22 256-22 256-224 256-224 256-23 256-234 31 256-31 256-318 
56-314 257- 257-3 = b57= 257-3 Soi ae $27- 257-3# = 257-3 $2534 257-4 257-48 257-8 = 2578 
™ 257-8 5 7= 257-84 257-84 257-84 57-84 257-9 257-98 57-14 257-14 257-14 257"14 257-148 
C5714 257-148 257-148 257-148 257-15 257=15H# 257-20 9257-20 §9— 257-20. 257-20 §9= 257-208 257-208 257-20" 257-208 
257-208 257-21 9257-218 9257-23 925 7=23H 258-12 258-124 259-21 259-21# 260-18 260-18 260-184 260-1 -1 
261-18 261-3 8261-3 = 261-3 261-3 261-3 261-3) 26 1-3H#@ = 261-34 = 261-34 = 261-34 = 261-34 1-34 1-7 
261-7 = 261-74 §=261-7# =261-10 9261-10) 26 1- 261-10 =261-10# 261-10 261-108 261-104 261-10# 261-11 261-118 | 
261-14 261-144 262- 262-18 262-15 262-154 263-1 263-1 263-26 263-26 §9=— 263-26 §=— 263-26 )=— 263-268 268 | 
263-268 263-268 263-264 263-32 263-324 - 264-14 264-1 264-19 8264-19 39 264-19 9 264-19 9 264-19 -194 


265-10 265-21 9265-21 9 265-214 9265-214 265-27 265-27 «265-27 §9=— 265-27 §9=— 265-278 §=—265-278 §=265-278 265-278 265-278 | 
= ” 266-14 266-14 ~ 266-5 266-5 266- 266-54 66-54 266-54 266-54 -S# =1 
266-10 266-108 266-104 266-11 266-114 267-1 267-1# 267-4 267-44 68-1 268-14 268-6 26 
269-18 269-10 269-104 9- 269-148 270-11 8270-114 270-19 §=270-19 «= 270-19 9270-19 §=—270-19% 270-198 270-198 
270-198 270-19H 271-24 271-248 272-14 272-144 274- 274-78 - 74-84 275-3 275-3 - 275-3 
275- 275-3 275-3 - - 275-34 275-34 «6275-38 75-7 75-7 275-7 275-7 - 75-7 
275-7 275-7 275-74 = 275-74 = O75=74@ = 275-7 = 276-40 §=— 276-404 9276-43 «= 276-434 9276-44 =4 276-448 276-448 | 
277-14 277140 277-14 277-14 277-14 277-16 277=14 — 277=14 277-148 «277-148 = 277-148 277-148 278- 278-2 CS 

o 278-2 278-2 278-2 278-2 . 278-24 278-24 278-24 78-24 - = 78-8 78- 

- 278-8 278-84 278-84 278-84 278-84 278-14 278-14 78-14 278-14 278-14 278-14 278-148 278-148 | 
278-148 278-148 278-20 278-20 78- 278-20 78-20 78-20 278-208 278-208 278-208 278-204 278-21 278-21 | 
278-21 = 278-21 278-21 278-21 9278-218 §=278-214 9 278-218 278-218 278-24 278-24 278-24 278-24 278-24 278-24 | 
278-248 278-248 278-248 278-268 = - 9-4 =4 79-4 - 9-4 27 79-48 | 

9-44 = 279-13 279-13 79-13 = 279-13 279-13 79-13 279-13# = 279-13H 279-138 279-134 279-14 9279-14 | 
2 14 279-14 79-14 279-148 279-148 = 279-148 = 279-148 279217 = 279-17) 279-17 27917 79-17 = -279=17 | 
279-178 279-178 279-178 279-178 “2 280- 0-2 280-2 80- 280-24 280-24 280-24 280-24 | 
80-4 280-4 280-4 280-44 280-44 280-44 280-44 1- 281-2 281-2 281-2 
281-2 281-2 281-2 281-2 281-24 81-24 281-24 281-24 283-4 a 83-4 


284-20 284-20 284-20 284-20 284-20 284-20  284-20# 284-208 284-208 284-208 - 285- 285-2 285-2 
285-2 285-2 285-2 285-2 285-24 285-24 285-2 285-24 85-8 285-8 85-8 285-8 - 285-8, 
- 285-84 285-84 285-84 285-22 285-22 285-22 285-22 285-22 285-22 285-22 85-22 285-22# 285-224 
285-224 285-224 286-2 -2 86-2 286-2 286- 286-2 286- 286-2 286-24 28 - 286-24 
- 286- 287-14 287-144 288-1 288-1 288-1 288-1 288-14 288-2 288-2 8-2 288-2 288-24 | 
288-3 288-3 ~ =3 288-3 288-34 288-4 288-4 - 288-4 288-5 288-5 
288-5 288-5 288-5 288-54 288-7 288-7 288-7 288-74 288-9 288-94 289-12 289-124 1 Be 
290-1 290-14 2 4 290-44 290-44 29 290-6 290-6 290-6 90-6 290- 
290-7 290-7 290-7 90-74 0-8 290-8 290-8 290-84 290-9 290-9 290-9 290-10 290-10 | 
90-10 90-10% 290-15 290-154 291-8 291-8 291-8 291-84 § 2-3 292-3 292-34 292-34 
MSGNLS 163-3 163-34 256-6 -64 275-3 275-34 275-7 275-78 77-14 «277-148 278-2 278-24 278-8 278-84 | 
78-14 278-148 278-20 278-20H 278-21 278-214 278-24 278-248 279-4 9- 279-13 9-134 279-14 279-148 
279-174 80-24 - 280-44 281-2 281-24 283-4 283-44 283-10 283-1 283-14 283-144 
84-10 84-10% 284-14 284-148 284-20  284-20H 285-2 285-24 285-8 285-84 285-22 285-224 | 
MSGNSU 261-1 261-14 262-1 2-14 63- 263-14 4- 264-18 67-1 67-14 268-1 68-18 269-1 269-18 
MSGNTA 114-18 114-184 115-19 115-194 140-16 140-164 140-20 140-204 0-24 140-244 140-28 140-284 140-32 140-324 | 
1 


1 

: 
21 3 44-4 44-438 | 
= 58-1 14 = 261-144 9262-15 = 262-154 §=265-32 «= 263-32 =266-11 9266-118 | 
267-4 267-44 268-6 268-64 269-10 269-104 14 269-14 271-24 «= 271-248 = 272-14 «= 272-148 =286-7 286-78 
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MSMCHI 
MSMCLO 
MSPOP 


291-10 
MSPRIN 140-62 
255-36 
MSPUSH 112-33 


288- 


0-111 


WNW RELL SO 
Cow y 4 nN 
#3 


™ ND Te 
N 
4 
as 


112-334 


90-15 
71-3 


114-10 


) 


290-154 
271-34 


285-8 
287-144 
233-214 


249-144 
264-204 


262-154 
271-248 


205-124 
114-104 


292-3 
272-3 


2 
289-12 
247-14 


250-104 
265-104 


263-324 
272-148 


205-144 
115-104 


mM 10 
PAGE M-6 


292-128 
273-34 


a 
wm 
~o 


‘ 
eee 


289-124 
247-54 


205-164 
116-34 


205-18 
140-14 


235-234 


247-84 
256-178 
266-14 


6 
286-94 
205-184 
140-144 


116-3 116-34 
140-224 140-224 
140-34 140-344 
140-46 140-46 
140-624 140-634 
140-834 140-834 
140-95 140-954 
140-107 140-107 
140-11 140-120 
140-1294 140-1314 
141-18 141-14 
163-3 163-34 
216-264 216-344 
225-248 225-274 
235-30# 236-14 
239-108 239-114 
45-84 46- 
249-24 2649-124 
256-224 256-314 
258-104 258-124 
260-64 260-184 
262-1 262-1 
264-1 264-1 
266-108 266-114 
268-14 268-64 
271-3 271-34 
273-3 273-34 
277-14 39277-1448 
278-204 278-21 
279-148 279-144 
283- 283-44 
284-144 284-20 
286- 286-24 
292-18 292-3 
247-12 247-128 
256-20 256-204 
266-10 266-104 
140-24 140-244 
40-57 140-574 
40-97 140-974 
140-127 140-1274 
38- 238-98 
259-21 259-214 
68-6 268-64 
288-9 288-94 
243-22 243-228 
140-18 140-184 


256-22 


243-24 
140-22 


SEQ 0337 


140-14 





SEQ 0338 


N 10 
M-7 
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sd 


140-508 | 
140-954 | 


140-464 140-50 
140-914 140-95 


40-304 140-34 
40-654 140-79 


140-994 140-10 


140-129 140-129" 140-13 


238-11 
260-3 
268-1 


140-264 140-30 
140-594 140-65 


205-16 
261-3 


205-16 
225-24 225-24 
243-24 243-24 


255-36 255-368 


225-24 
243-24 


205-14 
208-32 
243-22 
255-36 
264-19 


205-124 


261-3 261-3 


289-12 
205-164 


255-36 255-364 
-3# 264-19 


255-36 
261-34 261 


205-124 205-14 


225-24 
255-36 
261-34 


243-22 243-22 3=— 243-22 
243-24 = 243-24 = 243-24 


249-238 
261-3 


205-18 


205-124 205-124 
205-164 
249-234 


208-324 
261-3 


208-324 208-324 
243-22 
243-24 


249-234 249-238 
261-3 


208-324 
243-22 
243-24 
261-3 


| 
| 





236-118 
249-144 


249-124 249-14 


279-13 
249-12 


279-44 
249-24 


248-214 249-2 


275-7 
278-214 278-24 
177-444 248-21 


275-34 
280-44 


233-26# 233-31 233-314 234-7 

236-144 

173-49# 175-38 175-384 177-44 
250-10 253-54 


236-14 
MSSETS 112-33 


MSRADI 163-3 
278-14 
279-17 
284-10 
288-1 
290-6 

MSRBRO 233-26 

MSRNRO 173-49 





140-954 
140-1244 
238-54 
259-84 
267-148 
287-144 


140-184 140-22 
140-464 140-50 
140-914 140-95 

0-120# 140-124 


220-184 


140-144 140-18 
140-424 140-46 
140-874 140-91 
140-1164 140-120 14 
219-104 220-18 


1-14 


115-104 116-3 

140-344 140-38 
140-794 140-83 
140-1074 140-111 


140-304 140-34 


114-104 115-10 


238-114 241-3 


140-129 140-1294 





140-408 
140-814 


140-1054 140-109 140-1094 


140-1354 


140-139 140-1394 


140-364 140-40 
140-774 140-81 
40-1314 140-135 


40-1014 140-105 
149-40 


40-324 140-36 
40-634 140-77 


140-484 140-57 
140-894 140-93 
114 140-118 140-1184 


141-224 143-7 


140-204 140-24 


140-44 


238-11 
260-3 
268-1 
289-12 


MSSVC 140-16 


257-23 


257-218 
261-78 


208 256-22 
257-20 


257-154 
261-3 


261-10 


261-354 
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61-14 at ot 62-18 262-15 e510" 63-1 63-1% 263-26 63-38 7 a a 64-1 3-1" 264-19 
64-198 -35 64-354 65-104 265-21 65-214 265-2 66-1 1 66-5 66-10 
emir 7-1 e718 aw § -1 2 a4 68-6 68-64 ort 69-18 269-10 
69-108 e914 9-148 270-11 0-118 0-19 1-24 1-248 ey 72-148 274-7 4-78 75-3 15-34 
75-7 5-74 6-40 76-404 3 et 76-44 76-448 277-14 7 Ao yy A ag # 78-28 78-8 78-84 
78-14 78-148 278- 78-208 278-21 78-218 27 = 78-248 279-4 Sos. 134 279-14 279-148 
79-17 79-178 80-24 80-4 § 0-44 281- 1-24 83-4 g3-44 283-10 283-108 283-14 283-148 
$o5-90 ser" 284-14 84-144 284-20 84-208 285-2 5-28 §=285-8 85-84 5-22 285-224 286-2 286-28 | 
MSTLAB 140-164 140-204 140-2468 140-284 140-324 140-364 140-404 140-444 140-484 140-57 140-624 140-634 140-778 140-814 | 
O-854 140-894 140-934 140-974 140-1014 140-1054 140-109# 140-114 140-118 140-1228 140-127# 140-1314 140-1354 175-498 
141-228 143-74 143-84 147-214 147-228 9-224 149-408 149-138 150-104 151-218 152-118 160-324 163-34 173-498 
- 177-448 195-248 205-124 205-144 st a 9 205-184 207-414 208-324 212- 216-268 216-344 217-58 223-188 | 
223-408 225-134 225-2468 225-278 $62-708 a 99 ht 49-36" $5.36 32-128 233-218 233-248 233-268 3-318 
234-78 235-234 235-308 236-1 256-114 236-144 ? 7-78 9-108 239-118 263-228 263-268 264-438 247-18 
247-S# — 247-BH = 47-118 «247-124 =248-214 248-298 248- 49-18 = =— 249-28 = 249-128 §=249-148 249-234 250-108 b 
- ~4e 256-9F = 256-178 256-208 256-228 256-318 257-34 257-48 oe of 257-98 257-148 257-158 
257-208 257-218 257-238 258-124 259-218 260-184 261-18 261-38 261-78 261-108 261-118 261-148 262-18 262-158 
263-14 §—263-26# 263-32" 264-18 264-198 264-208 264-358 265-104 265-218 265-278 266-18 266-54 266-108 266-118 
267-18 267-48 268-18 268 269-14 269-108 269-148 270-11 70-1 271-248 sei 274-78 75-34 275-78 | 
276-408 276-438 276-448 277-148 278-28 - 278-148 278-208 278-218 sce-se" 79-48 toga Es 79-148 279-178 
280-24 280-44 281-24 283-48 283-108 283-148 284-108 284-148 234-208 285-24 285-84 285-22" 286-24 286-7 
MSTSTL 140-16 140-164 140-20 140-204 140-24 140-244 140-28 140-284 140-3 140-324 140-36 140-364 140-40 140-4 
140-44 140-444 140-48 40-484 140-57 140-574 140-62 140-624 140-6 140-6354 140-77 140-774 140-81 140-814 
140-85 140-854 140-89 140-894 140-93 140-934 140-97 140-978 140-101 140-1014 140-105 140-105# 140-109 140-1 
140-114 140-114# 140-118 140-1184 140-122 140-122 140-127 140-127# 140-131 140-1314 140- 140-1354 140-139 140-1394 
141-22 141-228 -7 143-74 143-74 - 143-84 147-21 147-218 147-214 147- 147-224 149-22 149-228 
149-228 0 149-408 149-408 149-43 9-434 150-10 150-10# 151-21 151-214 151-214 152-11 152-118 152-118 
160-324 -3 163-34 173-49 173-49# 175-38 175-384 177-44 177=44# 195-24 195-244 195-248 205-12 
205-124 205-14 205-14 205-16 205-16# 205-18 205-184 207-41 207-418 208-32 08-324 212-3 212-34 212-34 
216-26 216-264 216-34 16-344 216-344 217-5 $35-38 512-38 223-18 223-18# 2235-184 223-40 223-408 223-4 
225-15 39225-1354 225-24 225-248 ~27 225-278 §=225-30 3225-308 225-30H 227-44 227-448 = 227-444 228-27 228-278 
8-36 - 228-368 - 29-54 9- 232-12 3232-124 9 2335-21 Sera." $32-44 233-248 233-26 8 233- 
233-31 = 233-318 = 234-7 = =— 234-7 = 235-23 235-234 235-30 35-304 236- 6-14 “11 236-114 2 236- 
37 237-7 237-74 = 239-10 = 239-10# «239-11 = 239-118 =243-22 «= 243-228 = 243-24 3=— 243-248 244-43 
244-434 247-1 247-18 = =—247-5 247-S# = 47 = 247-BH 247-11 47-118 247-12 9 247-128 «248-21 9248-218 =248-29 
248-298 248-298 $o0-20 248-304 249-1 249-18 249-2 249-28 49-128 14 249-148 249-234 
50-10 250-104 253-5 2535-54 255-36 255-364 256-4 256-44 $26-¢ - “9 $3 256-17 256-178 
256-20 256-204 256-22 256-224 256-31 256-314 257-3 7-38 257-38 57-4 257-48 57-8 57-84 - 
a 257-98 = 257-14 257-148 = 257-148 257" 25 
258-12 258-128 21 259-214 4 
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CZUDCBO UDA & DISK DRV DIA 
CROSS REFERENCE TABLE (CRE 


PRINT 


PRINTB 
PRINTF 
PRINTS 
PRINTX 
PUSH 


READEF 
RFLAGS 
SETPRI 
SETVEC 


SVC 
TABLE 
XFER 


-114 
117-204 
244-124 


48-298 
57-14 


173-54 
144-21 


256-314 


G MACRO 
F v04.00 
56-6 56-6 
35-4, 574, 
379° a aad 
5- 5- 
re"s A a4 
78- 78-21 
79-1 79-138 
80-24 eet 
83-10 83-108 
284- Be-$5 
285- 285-228 
288 288-5 
290-8 8a 
274-7 
240-28 240-33 
140-19 140-23 
140-84 140-88 
140-154 140-158 
ws $0673 
275-15 9277-12 
140-19 140-23 
140-84 140-88 
140-154 140-158 
161-1 164-32 
242-8 
173-56 178-8 
177-31 179-27 
198-25 199-2 
207-43 3920-21 
226-19 228-24 
271-17 =271-18 
162-3 62-8 
203-11 203-27 
243-24 
177-29 179-20 
00- 200-15 
211-15 = 213-15 
243-1 244-14 
247-8 247-12 
177-44 
265-10 265-21 
249-23 261-3 
128-7 287-18 
260-184 276-444 


+ 
83-104 
$oe-88 
85-224 
288-54 
290-9 


140-27 


1 
181-40 


179-25 


256-20 


266-1 
264-19 


289-16 


59-90 
5-3 


183-23 


264-17 
183-24 


269-2 
256-22 
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256-318 
57-20 


265-37 


Wwe Roe 
Sess Sore 
PPPP PTF 





187-15 
0 


2 
213-30 
240-29 


183-10 
241-15 


140-43 
140-108 
249-17 


240-34 
183-30 


271-1 


140-47 
140-112 
173-56 
249-17 


140-47 
140-112 


255-27 


243-21 
187-12 


277-11 


57-34 
61-10 


140-56 
140-125 
178-8 
255-27 
140-56 
140-125 


273-16 


192-7 

204-45 
216-35 
243-48 


187-20 


282-15 


57-8 
61-10 
ard 


193-7 
204-4 


04 
217-2 
244-11 


189-7 


140-66 
140-134 


273-28 


195-25 
205-19 
17 


6 
244-28 
190-7 


197-16 
207-13 
233-18 


140-70 | 
140-138 | 


